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PREFACE 


This document is the reference manual to the Pascal/VS programming language. The 
Pascal/VS Programmer's Guide, $SH20-6162, is also available from IBM to help write 
programs in Pascal/VS. 


It is assumed that you are already familiar with Pascal and programming in a high 
level programming language. There are many text books available on Pascal; the fol- 
lowing list of books was taken from the Pascal User's Group Pascal News, December 
1978 NUMBER 13 and September 1979 NUMBER 15. You may wish to check later editions of 
Pascal News and your library for more recent books. 


t The Design of Well-Structured and Correct Programs by S. Alagic and M.A. Arbib, 
Springer-Verlag, New York, 1978, 292 pp. 


° Microcomputer Problem Solving by K.L. Bowles, Springer-Verlag, New York, 1977, 
563 pp. 


° A Structured Programming Approach to Data by D. Coleman, MacMillan Press Ltd, 
Loncen, 1978, 222 pp. 


e A Primer on Pascal by R.W. Conway, D. Gries and E.C. Zimmerman, Winthrop Pub- 


lishers Inc., Cambridge Mass., 1976, 433 pp. 


° PASCAL: An Introduction to Methodical Programming by W. Findlay and D. Watt, 
Computer Science Press, 1978, 306 pp.; UK Edition by Pitman International Text, 


1978. 

e Programming in PASCAL by Peter Grogono, Addison-Wesley, Reading Mass., 1978, 
357pp. 

° Pascal Users Manual and Report by K. Jensen and N. Wirth, Springer-Verlag, New 
York, 1978, 170 pp. 

° Structured Programmin and Problem-Solvi wit asca by R.B. Kieburtz, 
Prentice-Hall Inc., 1978, 365 pp. 

e Programming via Pascal by J.S. Rohl and Barrett, Cambridge University Press. 

° An Introduction to Programming and Problem-Solving with Pascal by G.M. 
Schneider, S.W. Weingart and D.M. Perlman, Wiley & Sons Inc., New York, 394 pp. 

e Introduction to Pascal by C.A.G. Webster, Heyden, 1976, 129 pp. 

° Introduction to Pascal by J. Welsh and J. Elder, Prentice-Hall Inc., Englewood 
Cliffs, 220 pp. 

° A Practical Introduction to Pascal by I.P. Wilson and A.M. Addyman, 
Springer-Verlag New York, 1978, 145pp; MacMillan, London, 1978. 

° Systematic Programming: An Introduction by WN. Wirth, Prentice-Hall Inc., 
Englewood Cliffs, 1973 169 pp. 

° Algorithms + Data Structures = Programs by N. Wirth, Prentice-Hall Inc., 


Englewood Cliffs, 1976 366 pp. 


This reference manual considers ISO/TC 97/SC 5 N595 as the Pascal Standard although 
N565 is a proposed standard and subject to further modification. 


STRUCTURE OF THIS MANUAL 


This manual is divided into the following major topics 
Chapter 1 is a summary of the language. 
Chapter 2 is a description of the basic units Clexical) of Pascal/VS. 
Chapters 3 through 9 are a top-down presentation of the language. 


Chapter 10 describes the I/0 procedures and functions. 


Preface iii 


Chapter 11 describes the predefined procedures and functions. 
Chapter 12 describes the compiler directives. 


Appendices provide supplemental information about Pascal/VS. 


The syntax of Pascal/VS will be described with the aid of syntax diagrams. These 
diagrams are essentially ‘road maps'; by traversing the diagram in the direction of 
the arrows you can identify every possible legal Pascal/VS program. 


Within the syntax diagram, the names of other diagrams are printed in lower case and 
surrounded by braces ('{}'). When you traverse the name of another diagram you can 
consider it a subroutine call Cor more precisely a 'subdiagram call'). The names of 
reserved words are always in lower case. Special symbols Ci.e. semicolons, commas, 
operators etc ) appear as they appear ina Pascal/VS program. 


The diagram traversal starts at the upper left and completes with the arrow on the 
right. Every horizontal line has an arrowhead to show the direction of the trav- 
ersal on that line. The direction of traversal on the vertical lines can be deduced 
by looking at the horizontal lines to which it connects. Dashed lines (i.e. '----') 
indicate constructs which are unique to Pascal/VS and are not found in standard 
Pascal. 


Identifiers may be classified according to how they are declared. For the sake of 
clarity, a reference in the syntax diagram for {id} is further specified with a one 
or two word description indicating how the identifier was declared. The form of the 
reference is ‘fid:description}'. For example fid:type} references an identifier 
declared as a type; fid: function} references an identifier declared as a function 
name. 


REVISION CODES 
The convention used in this document is that all changes in the current version from 
the previous edition are flagged with a vertical bar in the left margin. 


Extensions to Pascal are marked with a plus sign in the margin. 
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SUMMARY OF AMENDMENTS 


RELEASE 2.1 


The following is a list of the functional changes that were made to Pascal/VS for 
Release 2.1. 


A procedure Cor function) at any nesting level may now be passed as a routine 
parameter. The previous restriction which required such procedures to be at the 
outermost nesting level of a module has been removed. 

Two new options may be applied to files when they are opened: UCASE and NOCC. 
Rules have been relaxed in passing fields of packed records by var to a routine. 


The "STACK" and “HEAP” run time options have been added to control the amount at 
which the stack and heap are extended when an overflow occurs. 


The syntax of a "structured constant" anen contains non-simple constituents has 
been simplified. 


RELEASE 2.0 


The following is a list of the functional changes that were made to Pascal/VS for 
Release 2.0. 


Pascal/VS now supports single precision floating point (32 bit) as well as dou- 
ble precision floating point (64% bit). 


Files may be opened for updating with the UPDATE procedure. 

Files may be opened for terminal input CTERMIN) and terminal output (CTERMOUT) so 
that I70 may take place directly to the user's terminal without going through 
the DDNAME interface. 


The MAIN directive permits you to define a procedure that may be invoked froma 
non~-Pascal environment. A procedure that uses this directive is not reentrant. 


The REENTRANT directive permits you to define a procedure that may be invoked 
from a non-Pascal environment. A procedure that uses this directive is reen- 
trant. 

A new predefined type, STRINGPTR, has been added that permits you to allocate 
strings with the NEW procedure whose maximum size is not defined until the invo- 
cation of NEW. 

A new parameter passing mechanism is provided that allows strings to be passed 
into a procedure or function without requiring you to specify the maximum size 
of the string on the formal parameter. 

The maximum size of a string has been increased to 32767 characters. 

The Pascal/VS compiler is now fully reentrant. 


Code produced from the compiler will be reentrant if static storage is not modi- 
fied. 


Pascal/VS programs may contain source lines up to 100 characters in length. 
Files may be accessed based on relative record number Crandom access). 

Run time errors may be intercepted by the user's program. 

Run time diagnostics have been improved. 


Pascal/VS will flag extensions when the option "LANGLVLC(STD)" its used. 
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Vi 


A mechanism has been provided so that Pascal/V5S routines may be called from oth- 
er languages. — 


All record formats acceptable to QSAM are now supported by the Pascal/VS I/70 
facilities. 


A procedure or function may now be exited by means of the goto statement. 
You may now declare an array variable where each element of the array isa file. 
You may define a file to be a field of a record structure. 


Files may now be allocated in the heap (as a dynamic variable) and accessed viaa 
pointer. 


You may now define a subrange of INTEGER which is allocated to 3 bytes of 
storage. Control over signed or unsigned values is determined by the subrange. 


Variables may be declared in the outermost scope of a SEGMENT. These variables 
are defined to overlay the variables in the outermost scope of the main program. 


The PDSIN procedure opens a member of a library file (partitioned dataset) for 
input. 


The PDSOUT procedure opens a member of a library file (partitioned dataset) for 
output. 


A procedure or function that is declared as EXTERNAL may have its body defined 
later on in the same module. Such a routine becomes an entry point. 


The CPAGE percent(%) statement conditionally does a page eject if less than a 
specified number of lines remain on the current listing page. 


The MAXLENGTH function returns the maximum length that a string variable can 
assume. 


The “CHECK TRUNCATE option enables (or disables) the checking for truncation of 
strings. 


The PASCALVS exec for invoking the compiler under CMS has been modified so that 
the specification of the operands allows greater flexability. 


New compiler options have been added, namely: LINECOUNT, PXREF, PAGEWIDTH, and 
LANGLVL. 


The catalogued procedures for invoking Pascal/VS in OS Batch have been simpli- 
fied. 


The format of the output listing has been modified so that longer source lines 
may be accomodated. 


Multiple debugger commands may be entered on single line by using a semicolon 
(;) as a separator. 


The format of the Pascal File Control Block has been modified. 
Support is now provided for ANSI and machine control characters on output files. 


Execution of a Pascal/VS program will terminate after a user determined number 
of non-fatal run time errors. 


The debugger now supports breakpoints at the end of a procedure or function. 


The Trace mode in the debugger provides information on when procedures are being 
exited. 


The TRACE procedure now permits you to specify the file on which the traceback 
1s to be written. 


The Equate command of the debugger has been enhanced. 


The debugger will print "uninitialized" when displaying a variable that has not 
been assigned. 
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"The language Pascal was designed by 
Professor Niklaus Wirth to satisfy two 
principal aims: 


® to make available a language suit- 
able for teaching programming as a 
systematic discipline based on cer- 
tain fundamental concepts clearly 
and naturally reflected by the lan- 
guage. 


° to define a language whose implemen- 
tations could be both reliable and 
efficient on then available comput- 
ers." 


(Pascal Draft Proposal ISO/TC 97/7SC 5 
N595, January, 1981) 


Pascal/VS is an extension to standard 
Pascal. The purpose of extending Pascal 
is to facilitate application program- 
ming requirements. Among the extensions 
are such features as separately compil- 


able external routines, internal and. 


external static data, and varying length 
character strings. 


Pascal is of interest as a high level 
programming language for the following 
reasons: 

1.1 PASCAL LANGUAGE SUMMARY 


1.90 INTRODUCTION TO PASCAL/VS 


It provides constructs for defining 
data structures ina clear manner. 


It is suitable for applying struc 
tured programming techniques. 

The language is relatively 
machine-tndependent. 


Its syntax and semantics) allow 
extensive error diagnostics during 
compilation. 


A program written in the lanquage 
can have extensive execution time 
checks. 


Its semantics allow efficient 
object code to be generated. 


Its syntax allows relatively easy 
compilation. 


The language is relatively well 
known and is growing in popularity. 


This section of the manual is meant to be a capsule summary of Pascal/VS. It should 


serve as a brief outline to the language. 


of this document. 


1.1.1 Syntax 


The details are explained in the remainder 


The syntax is described with an example-like format that summarizes the important 
features of the item. The following rules are the conventions used. 


Pear indicates that the item preceding this symbol may be repeated an 


arbitrary number of times. 


[es 
[tune 


encloses items which are optional. 


C ] denote the standard square brackets of Pascal. 


item-comma-list indicates that the item may be repeated, separating each occurrence 


with a comma. 


digit-list 


refers to a sequence of one or more digits C™O™. ."9™), 


binary-digits refers to a sequence of one or more binary digits ("0" or "1™). 


hex-digits refers to a sequence of one or more hexadecimal digits ("0".."9" or 
wa. JRE) é 

id refers to an identifier. 

label refers to either an identifier or an integer number in the range 
0..9999. 

directive refers to any one of: FORWARD, EXTERNAL, FORTRAN, MAIN, or 
REENTRANT. 
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field-list 


1.1.2 Modules 


program 


SEGMENT 


refers to the list of fields that compose the body of a record data 
type. 


is a self-contained and independently executable unit of code. 


program id £ € id-comma-list ) 1 ; 
declaration... 
compound-statement . 


is a shell in which procedures and functions may be separately com- 
piled. 


SEGMENT id ; 
declaration... . 


1.1.3 Declarations 


label 


const 


type 


var 


def 


ref 


static 


value 


is used to declare a label in a program, procedure or function. 


label 
label-comma-list ; 


declares an identifier that becomes synonymous with a compile time 
computable value. 


const 
id = constant-expression ; 
tC id = constant-expression ; J... 


declares an identifier which is a user-defined data type. 


= data-type ; 
Ll id = data-type ; 


declares a local variable. 


var 
id-comma-list : data-type ; 
£ id-comma-list : data-type ; J]... 


declares a variable which is defined in one module and may be refer- 
enced in other modules. 


def 
id-comma-list : data-type ; 
t id-comma-list *: data-type ; J]... 


declares a variable which is defined in another module. 


ref 
id-comma-list =: data-type ; 
{ id-comma-list : data-type ; J... 


declares a variable which persists for the entire execution of the 
program. 


static 
1d-comma-list : data-type ; 
L id-comma-list : data-type ; J]... 


assigns a value to a def or static variable at compile time. 
value 


variable ‘= 
{ variable := 


constant~-assignment-statement ; 
constant-assignment-statement ; 1]... 
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procedure defines a unit of a module which may be invoked as a statement. 


procedure id [ € parameter [; parameter]... ) J] ; 
directive ; 


or 
procedure id [ € parameter [; parameter]... ) 1 ; 
declaration... 
compound-statement ; 
function defines a unit of a module which may be invoked and returns a value. 


function id [ € parameter [; parameter]... ) ] : id ; 
directive ; 


or 
function id £ (€ parameter [; parameter]... ) 


1: id ; 
declaration... 
compound-statement ; 
1.1.4 Data-Typeas 
id is an identifier that was previously declared as a type. 
enumeration is a list of constants of a user-defined scalar data type. 
€ id-comma-list ) 
Subrange 75 a continuous range of a scalar type. 
— packed J] constant .. constant-expression 
array is a data structure composed of a list of homogeneous elements. 
Ct packed J] array [— data-type ] of data-type 
record 1s a data structure composed of a list of heterogeneous fields. 
{ packed J record 
C id-comma-list : data-type ; 1]... 
Ct case Lid :] id of 
constant-comma-Llist : (€ field-list ) ; 
CU constant-comma-list : € field-list ) ; ]...1] 
end 
set is a collection of zero or more scalar values. 
Ct packed J] set of data-type 
file is a sequence of data to be read or written by a Pascal program. 
file of data-type 
pointer is a reference to a variable that is created by the programmer. 
a id 
1.1.5 Parameters 
value designates a pass-by-value parameter. 


id-comma~list * id 

var designates a pass-by-reference (read/write) parameter. 
var id-comma-list : id 

const designates a pass-by-reference (read-only) parameter. 


const id-comma-list : id 
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procedure is the mechanism whereby a procedure may be passed to the called 
procedure (function) and executed from there. 


procedure id £ ( parameter [; parameter]... ) 1 ; 


function is the mechanism whereby a function may be passed to the called pro- 
cedure (function) and executed from there. 
function id t ( parameter [; parameter]... ) ] : id ; 


1.1.6 Statements 


Every statement may be preceded with one label: 
Ct label: J statement 


assert tests a condition that should be true and if not causes a runtime 
error to be produced. 


assert bool-expression 


assignment assigns a value to a variable. 
variable := expression 
case causes any one of a list of statements to be executed based upon the 


value of an expression. 


case expression of 
£ constant-comma-list =: statement ; J... 
{ otherwise 
statement C ; statement J... ] 


end 
compound is a series of statements enclosed within begin/end brackets. 
begin 
statement C ; statement J... 
end 
continue resumes execution of the next iteration of the innermost loop. The 
termination condition is tested to determine if the loop should con- 
tinue. 
continue 
empty contains no executable code. 
for is a loop statement that modifies a control variable for each iter- 


ation of the loop. 


expression to expression do 


for variable 


statement 
or 
for variable *= expression donnto expression do 
statement 
goto changes the flow of your program. 
goto label 
if causes one of two statements to be executed based on the evaluation 


of an expression. 


if bool-expression then 
statement 

t else 
statement J] 


leave terminates the execution of the innermost loop. Execution resumes 
as if the loop termination condition were true. 
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leave 


call invokes a procedure. At the conclusion of the procedure, execution 
continues at the next statement. 


id [ € expression-comma-list ) ] 


repeat is a loop statement with the termination test occurring at the end 
of the loop. 


repeat 
statement [ ; statement J... 
until bool-expression 


return terminates the executing procedure (function) and returns control 
to the caller. : 
return 
while is a loop statement with the termination test occurring at the 


beginning of the loop. 


while bool-expression do 
statement 


with permits complicated references to fields within a record to be 
treated as simple variables within aa statement. 


With variable-comma-list do 
statement 


1.1.7 Expressions 


An expression is composed of operands combined with operators. The operators have 
the following precedence: 


not operator Chighest) 
multiplying operators 

adding operators 

relational operators (lowest) 


1.1.8 Operands 


variable represents a unit of storage which may be referenced and altered. 
simple variable: id 
array: variable [ expression ] 
field: variable . id 
pointer: variable a 
constant represents a literal value. 
INTEGER digit-list 


' hex-digits 'X 
' binary-digits 'B 


REAL digit-list . digit-list LE+/- digit-list] 
' hex-digits 'XR 
BOOLEAN FALSE/TRUE 
CHAR EBCDIC character in single quotes 
string EBCDIC characters in single quotes 
" hex-digits 'XC 
array id € expression [: expression] 
{ , expression [: expression] 1]... 
record id € expression [, expression]... ) 


set-constructor refers to an operand that describes the values of a set. 


{ expression [ .. expression J] 


» expression [ .. expression J] J... ] 
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) 


function-call refers to the invocation of a function. 
id £ € expression-comma-list ) ] 
parenthesized-expression is used to override the normal precedence of operators. 


€ expression ) 


1.1.9 Special Symbols 


symbol meaning 


+ addition and set union operator 
ss subtraction and set difference operator 
« multiplication and set intersection operator 
/ division operator, REAL results only 
~ BOOLEAN not, one's complement on INTEGER 
or set complement 
| BOOLEAN or, logical or on INTEGER 
& BOOLEAN and, logical and on INTEGER 
&& BOOLEAN xor operator, logical xor on INTEGER 
and set exclusive union 

equality operator 

less than operator 

less than or equal operator 

greater than or equal operator 

greater than operator 
or 7 not equal operator 

right logical shift on INTEGER 

left logical shift on INTEGER 

catenation operator 

assignment symbol 

period to end a module 
: field separator in a record 
r comma, used as a list separator 
: colon, used to specify a definition 
; semicolon, used as a statemant separator 
bts subrange notation 
quote, used to begin and end string constants 
or -> pointer symbol 

left parenthesis 

right parenthesis 
or ¢€. left square bracket 
or .) right square bracket 
or (* comment left brace (standard) 
or *) comment right brace (standard) 

comment left brace Calternate form) 

comment right brace Calternate form) 


A oe 
én oti 


a Y Aw 


A 
en 


tem AY 
i— AVY 


MOND St me, het mH oO OOD 


NK 


1.1.10 Identifiers 


Identifiers are composed of the letters "a" through "z", the digits "0" through "9" 
and the special characters "_" and "S$". An identifier must begin with a letter or 
"S" and must be unique in the first 16 positions. There is no distinction between 
the an upper case letter and its lower case equivalent. 
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1.1.11 The Not Operator 


operator 


operation operands 


BOOLEAN 
INTEGER 


boolean not 
logical one's 
complement 


complement set of T 


1.1.12 Multiplying Operators 


operator 


div 
mod 
& Cand) 
& Cand) 


operation operands 


multiplication INTEGER 
SHORTREAL 
REAL 
mixed 
real division INTEGER 
SHORTREAL 
REAL 
mixed 
integer division INTEGER 
modulo INTEGER 
boolean and BOOLEAN 
logical and INTEGER 
set intersection set of t 
string catenation STRING 


logical left shift] INTEGER 
logical right INTEGER 
shift 


1.1.13 Adding Operators 


operator 


| cor) 
| cor) 

&& (xor) 
&& (xXOP) 
&& (xOr) 


operation 
addition INTEGER 
SHORTREAL 
REAL 
mixed 

set of t 
INTEGER 
SHORTREAL 
REAL 
mixed 

sat of t 
BOOLEAN 
INTEGER 
BOOLEAN 
INTEGER 
set of t 


set union 
subtraction 


set difference 
boolean or 
logical or 
boolean xor 
logical xor 
exclusive union 


per eee caMUTNN ca TE 


result 


BOOLEAN 
INTEGER 


set of T 


result 
INTEGER 
SHORTREAL 
REAL 


REAL 
REAL 
SHORTREAL 
REAL 
REAL 
INTEGER 
INTEGER 
BOOLEAN 
INTEGER 
set of t 
STRING 
INTEGER 
INTEGER 


INTEGER 
SHORTREAL 
REAL 

REAL 

sat of t 


INTEGER 
SHORTREAL 
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1.3.14 Relational Operators 


operator 


compare 
not equ 


less th 
compare 
subset 

compare 
compare 
superse 
set mem 


operation 


equal 


al 


an 
< or = 


greater 
> or = 
t 

bership 


1.1.15 Reserved Vords 


and 
array 
assart 
eqin 
casa 
const 


continue 


end 
file 
for | 
function 
goto 
if 

in 
label 
leave 
mod 
nil 
not 


1.1.16 Predefined Constants 


ALFALEN 
ALPHALEN 
FALSE 
MAXINT 
MININT 
TRUE 


any set, 
or string 
any set, 
or string 
scalar type 
scalar type 
set of t 
scalar type 
scalar type 
set of t 


of 
or 


t and set of t 


scalar, 


or 
or 


or 
or 


otherwise 


Racked 


procedure 


pregram 
range 
record 
ref 
repeat 
return 
set 


length of type ALFA, value is 8 


length of type ALPHA, value is 16 


operands 


scalar, 


poin 
poin 


string 
string 


string 
string 


constant of type BOOLEAN, FALSE < TRUE 


ter 


ter 


maximum value of type INTEGER: 2147483647 
minimum value of type INTEGER: ~2147483648 
constant of type BOOLEAN, TRUE > FALSE 


1.1.17 Predefined Types 


ALFA 
ALPHA 
BOOLEAN 
CHAR 
INTEGER 
REAL 
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packed arrayl 1..ALFALEN ] of CHAR 
packed arrayf 1..ALPHALEN ] of CHAR 


result 
BOOLEAN 
BOOLEAN 


BOOLEAN 
BOOLEAN 
BOOLEAN 
BOOLEAN 
BOOLEAN 
BOOLEAN 
BOOLEAN 


data type composed of the values FALSE and TRUE 


character data type 


integer data type 


floating point represented ina 64 bit value 


SHORTREAL 
STRINGPTR 


TEXT 


1.1.18 


INPUT 
OUTPUT 


1.1.19 


floating point represented ina 32 bit value 


is a predefined type that points to a STRING whose maximum length is 


determined when the STRING is allocated with NEW 
file of CHAR 


Predefined Variables 


default input file 
default output file 


Predefined Functions 


The following symbols represent parameters in the descriptions 
of the predefined functions and procedures. 


ABS (x) 
ARCTAN( x) 
CHRIn) 
CLOCK 
COLS(f) 
COMPRESS(s) 
cos (x) 


DELETE(S,n1,n2) 


EOF(f) 
EOLN( f ) 
EXP(x) 
FLOAT(n) 
HBOUNDCal, nl) 
HIGHEST(x) 
INDEX(S1,82) 
LBOUNDCal,n]) 
LENGTH(S ) 
LN(x) 

LOWEST (x) 
LTRIM( Ss) 
MAXOx£L,x]...) 
MAXLENGTH(s ) 


€@ = an array variable 

a file variable 

a positive integer expression 
pointer valued variable 

a string expression 

a variable 

any arthimetic expression 


xXouT SS sh 


computes the absolute value "x" 

returns the arctangent of "x" 

returns the EBCDIC character whose ordinal value is "n" 
returns the number of micro-seconds of execution 
returns current column of file "f" 

replaces multiple blanks in "5s" with one blank 

returns the cosine of "x" 

returns "s" with characters "nl" through "n2" removed 
tests file "f" for end-of-file condition 


tests file "f" for end-of-line condition 


computes the base of the natural log (Ce) raised to to the power "x" 


converts "n" to a floating point value 

determines the upper bound of array "a" 

determines the maximum value the type of a scalar "x" 
returns the location, if present, of "s2" in "sl" 

determines the lower bound of array "a" 

determines the current length of string "s" 

returns the natural logarithm of the ™x" 

determines the minimum value the type of a scalar "x" 
returns "s" with leading blanks removed 

determines the maximum value of a list of scalar expressions 


determines the maximum length of string "5s" 
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MIN(XL,x]...) 


determines the minimum value of a list of scalar expressions 


ODD(n) returns TRUE if integer "n" is odd 

ORD(x) converts a scalar value "x" to an integer 

PARMS returns the system dependent invocation parameters 

PRED(x) obtains the predecessor of scalar expression "x" 

RANDON(n) returns a pseudo-random number, "n" is the seed value or zero 
ROUND(x) converts a floating point value to an integer value by rounding 
SIN(x} returns the sine of "x" 

SIZEOF(x) determines the memory size of a variable or type 

SQRT (x) returns the square root of "x" 

SQR(x) returns the square of "x" 

STRla) converts array of characters "a" to a string 

SUBSTR(s,nl1,n2) returns the substring of "s" from "ni" to "n2" 

succ(x) obtains the successor of scalar "x" 

TRIM(S) returns "s" with trailing blanks removed 

TRUNC(X) converts floating point expression "x" to an integer by truncating 


a eereveerarente anne “e> opener = PSN Tet TREE A St 


CLOSE( Ff) 


closes a file 


DATETIME(al,a2) returns the current date in "al" and time of day in "a2" 


DISPOSE(p) deallocates a dynamic variable 

GET(f) advances file pointer to the next element of input file "f" 
HALT halts the programs execution 

MARK (Cp) creates a new heap, "p" designates the heap 


NEN(p,£,xJ...) allocates a dynamic variable from the most recent heap 
PACK(Cal,x,ac) copies array "al" starting at index "n" to packed array "a2" 


PAGEL(f)1 skips to the top of the next page 


PDSIN(f,s) opens file "f" for input, “s" designates the open options which must 
specify the member name 
PDSOUT(f,s) opens file "f" for output, "s" designates the open options which 


must specify the member name 
PUT CF) advances the file pointer to the next element of output file "f" 
READ(Ef,I]v£E,vl...) reads data from file "f" into variable "v" 


READLN(Cf,I]VE,vi...) reads variable "v" and then skips to end-of-line of TEXT file 
Wee 


READSTR(s,vfi,vl]...) reads data from string "s" into variable "vy" 


RELEASE(p) destroys one or more heaps, "p" designates the last heap to be 


destroyed 


RESET(fI,s1) opens file "f" for input, "s" designates the optional open options 
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RETCODE(n) 
REWRITE(fI,s]) 
SEEK(f,nn) 


TERMIN(fL,S]) 


TERMOUT(TL,S1) 


TOKEN(S,V) 
TRACE(F) 
UNPACK(al,a2,n) 
UPDATE(CTI,S1) 


TNL SN20-4446 (31 December 81) to SE20-6168-1 


sets the system return code 

opens file "f™" for output, "s" designates the optional open options 
modifies the current position of file "f' so that next GET Cor PUT) 
reads (Cor writes) record number "n", where record 1 is the first 
record of the file 


opens file "f"for input from the users terminal, "s" designates the 
optional open options 


opens file "f"for output from the users terminal, "s"™ designates the 
optional open options 


extracts tokens from string "s" updating starting position "v” 
writes the procedure and function invocation history to file "fF" 
copies packed array "al" to array "a2" beginning at index "n"* 

opens file "f" for update, a PUT immediately following a GET of a 


record of the file replaces that record, "s" dasignates the optional 
open options 


WRITECE#,Ix£,x]...) writes the value of "x" to file "f" 


WRITELNC(Cf,Ix€,x]...) writes the value of "x" and then writes an end-of-line to TEXT 


file "#" 


WRITESTR(s,xl,xl...) writes the value of "x" to string "s" 


l.l.21 % Include Statements 


%CHECK 
%CPAGE ni 


%INCLUDE 
%LIST ON/OFF 
4MARGINS n ih 


%PAGE 
%PRINT GN/OFF 
%SKIP n 


“TITLE 


enables or disables execution time checking features. 


skips to the next page if less than "n" lines remain on the current 
page 


includes source code froma library. 
enables or disables the pseudo-assembler listing. 


resets the left margin of the source program to "n" and the right 
margin to "m™, 


forces the source listing to start on a new page. 
enables or disables the source listing. 
inserts "n" blank lines into the source listing. 


specifies a title for the listing. 
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2.1 IDENTIFIERS 


Syntax: 


>{digit} 
——>{letter} 


where: 


{digit} 1s "0%, "T's sees. 19" 
underscore is '_! 


Identifiers are names given to vari- 
ables, data types, procedures, func 
tions, named constants and modules. 


correct: incorrect: 
I 5K 
K9 NEW JERSEY 
New_York 
AMOUNTS 


Valid and Invalid Identifiers 


Pascal/VS permits identifiers of up to 
16 characters in length. You may use 
longer names but Pascal/VS will ignore 
the portion of the name longer than 16 
characters. You must assure identifiers 
are unique within the first 16 
positions. 


There is no distinction between lower 
and upper case letters within an identi-~ 
fier name. For example, the names 
"ALPHA', ‘alpha', and ‘Alpha’ are equiv- 
alent. 


There is an implementation restrictions 
on the naming of external variables and 


> 
> {letter}——>}- —> 
-~~->{underscore}~-> | 


(letter? 46. tht, SB* 5. 2.525 825 Tea oe Be. wien Te" or rs! 


2.0 THE BASE VOCARULARY 


ee ee ae a ra ee na 


external routines. You must make sure 
that identifiers used as external names 
are unique in the first 8 characters. 


2.2 LEXICAL SCOPE OF IDENTIFIERS 


The area of the module where a partic— 
ular identifier can be referenced is 
called the lexical scope of the identi- 
fier Cor simply scope). 


In general, scopes are dependent on the 
structure of routine declarations. 
Since routines may be nested within oth- 
er routines, a lexical level is associ- 
ated with each routine. In addition, 
record definitions define ae lexical 
scope for the fields of the record. 
Within a lexical level, each identifier 
can be defined only once. A program 
module is at level 0, routines defined 
within the module are at level 1; in 
general, a routine defined tn level i 
would be at level Cit1l). The following 
diagram illustrates a nesting 
structure. 
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program M Clevel 0) 
procedure A Clevel 1) 


procedure B (level 2) 


function Cc 
(level 3) 


| procedure D Clevel 2) | 


function X Clevel 1) 
| procedure Y (level 2) | 


| procedure Z (level 2) | 


The scope of an identifier is the entire 
routine (Cor module) in which jit was 
declared; this includes all routines 
defined within the routine. The follow- 
ing table references the preceding dia- 
gram. 
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identifiers 
declared in: 


are accessible in: 


Module M 
procedure A 
procedure B 
type R 
function C 
procedure D 
function X 
procedure Y 
procedure Z 


N<KOOWCWSr® 


If an identifier is declared in a rou-~ 
tine which is nested in the scope of 
another identifier with the same name, 
then the new identifier will be the one 
recognized when its name appears in the 
routine. The first identifier becomes 
inaccessible in the routine. In other 
words, the identifier declared at the 
inner most level is the one accessible. 


The scope of a field identifier defined 
within a record definition is Limited to 
the record itself. The scope of a 
record may be accessed by either field 
referencing (see "Field Referencing" on 
page 68) or with the with-statement (see 
"The With Statement" on page 100). 


The Pascal/VS compiler effectively 
inserts a prelude of daclarations at the 
beginning of every module it compiles. 
These declarations consist of the prede- 
fined types, constants, and routines. 
The scope of the prelude encompasses the 
entire module. You may re-declare any 
identifier that is predefined if you 
would like to use the name for another 
purpose. 


2.3 RESERVED WORDS 


and end 


array file 

+ assert for 
begin function 
casa goto 
const if 


continue in 
def label 


div + leave 
rod 

donunto nil 

else not 


Pascal/VS reserves the identifiers 
shown above for expressing the syntax of 
the language. These reserved words may 
never be declared by you. Reserved 
words must be separated from other 


reserved words and identifiers by a spe- 


Reserved Words 


those words marked by '+' are not reserved in standard Pascal 


of + space 
or + static 
otherwise 

packed to 
procedure = 
program until 
ranges + value 
record var 
ref while 
repeat with 
return + xor 
set 


ree ceria = ep 


ee eee ego mE RYT: RUNES 


cial symbol, a comment, or at least one 
blank. 


A lower case letter is treated as equiv- 


alent to the corresponding upper case 
letter in a reserved word. 
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+++ 


2.4% SPECIAL SYMBOLS 


+ 

x 

/ 

| 

& 

&& 

y 

<= 

>= 

> 

<> or «= 
>> 

<< 

1] 

> 

.- 

{ or -> 
¢ 

) 

C or ¢. 
Joor .) 
{ or (% 
} or X) 
/*® 

K/ 


Special Symbols 


meaning 
addition and set unton operator 
subtraction and set difference operator 
multiplication and set intersection operator 
division operator, REAL result only 


BOOLEAN not, one's complement on INTEGER or set complement 
BOOLEAN or, logical or on INTEGER 

BOOLEAN and, logical and on INTEGER 

BOOLEAN xor operator, logical xor on INTEGER 

and set exclusive union 


equality operator 

less than operator 

less than or equal operator 
greater than or equal operator 
greater than operator 

not equal operator 


right logical shift on INTEGER 
left logical shift on INTEGER 
catenation operator 


assignment symbol 

period to end a module 

field separator in a record 
comma, used as a list separator 


colon, used to specify a definition 
semicolon, used as a statement separator 
subrange notation 

quote, used to begin and end string constants 
pointer symbol 


left parenthesis 
right parenthesis 
left square bracket 
right square bracket 


comment left brace (standard) 
comment right brace (standard) 
comment left brace Calternate form) 
comment right brace (alternate form) 


Symbol Reserved Word 
Special symbols used by Pascal/VS are - not 
listed above. Several special symbols | or 
may also be written as a reserved word. & and 
These symbols are shown in the following && xor 


table. 
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2-5 COMMENTS 


Pascal/VS supports two forms of 
comments: '{ ... 3" and '74%...¥/'. The 
curved braces are the standard comment 
symbol in Pascal. The symbols '(** and 
"*¥)' are considered by the compiler to 


tdentical to left and right braces. The 


form of comment using '/7*' and 'X/' is 
considered to be distinct from the form 
using braces. 


When the compiler encounters the symbol 
‘{’, it will bypass all characters, 
including end-of-line, until the symbol 
oF is encountered. Likewise, all 
characters following "7%! will be 
bypassed until the symbol '*/' is detec- 
ted. As a result, either form may be 
used to enclose the other; for example 
7*....,..3...¥*7 15 one comment. One use 
of these two forms of comments is to use 


one for ordinary comments and use the 
other to block out temporary sections of 
code: a '/*...*/' comment could be used 
to indicate a temporary piece of code, 
or perhaps debugging statements. 


A comment may be placed anywhere in a 


module where a blank would be 
acceptable. 
7% 


if A = 10 then { this statement is 
for program 
debugging } 
WRITEC'TA IS EQUAL TO TEN'); 
7 


Example of a nested Comment 
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beet 


+ + 


2.6 CONSTANTS 


rss ee peat ter Pncntaeete mre wren on Meanie htmanet/ teste For 


Syntax: 


Ne es ne oR ep. ice. asnmaneen gush hnnre enestthedeasueneetsetetineetean/enusti ete =peanRt 


unsigned-integer: 


= >{digit} 
Le 


aea> Fo an-7--- >{binary digit}---7--- > "B eed 
ose sae ee Ty 
cea ae Reraaias ve as > {hex-digit}---7--- 2 SX SH Se= >4 
es ee JT ss 
real-number: 
oemasinn Geuiehed ieehiiiteetetoaty aeeaen >f{hex-digit}---7--- > XR www r twtr tert > 
T | ae call Ee T 1 
>{digit} D4 >{digit} 
; ie ieee 
nr rt rr rr 
is 
> E > >{digit} > 
/—> + —>| Le 
> - > 
unsigned-number: 
PADS ON Ed A IWECO Et re 
Bi EG ees ee rai ee 
string: 
ee > ' Se See ae ee ' > 
| <—-{character}< | 
saad A tay aaa > {hex-digit}---7--- 2 AX “aaa >4 
Were ie ee J 
unsiqned-constant: 
— >{unsigned-number} > 
>{string}———————-> 
>{id: constant}————> 
> nil ——-——-—""-> 
constant: 
== Oe ce 
> + eee aad unsigned-number > 
>-—> 
where: 
{binary-digit} is "0" or "1". 
{digit} is "0" through '9'; 
fhex-digit} is '0' through "9" and 'A’*® through 'F'‘'; 
{character} 1s any EBCDIC character. 
Constants can be divided into several If a single quote is to be used within a 
categories according to the predefined string, then the quote must be written 
type to which they belong. An unsigned twice, Lower case and upper.cise let- 
number will conform to either a REAL or ters are distinct within string con- 
an INTEGER. Strings will conform to the stants. String literals are not 
type STRING or packed arrayll..nj of permitted to extend past the end of line 
CHAR. In addition, if the string is one of a source line. Longer strings can be 
character in length, it will conform to formed by catenating shorter strings. 


the type CHAR. 
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Nil is of a special type which will con- 
form to any pointer type. It represents 
a unique pointer value which is not a 
valid address. 


The constants TRUE and FALSE are prede- 
fined in the language and are of the 
standard type BOOLEAN. 


Integer hexadecimal constants are 
enclosed in quotes and suffixed with an 
Tm oor te Integer binary constants 
are enclosed in quotes and suffixed with 
a *B* or "b". 


Hexadecimal constants may be used in any 
context where an integer constant is 
appropriate. If you do not specify 8 
hexadecimal digits Ci.e. 4 bytes), Pas- 
cal/VS assumes that the digits not sup- 


plied are zeros on the left. For 
example, 'F'x is the value 15. 
Floating point hexadecimal constants 


are enclosed in quotes and suffixed with 
an 'XR' or 'xr'. Such constants may be 
used in any context where a real con- 
stant is appropriate. If you do not 
specify 16 hexadecimal digits Ci.e. 8 
bytes), Pascal/VS assumes that the dig- 
its not supplied are zeros on the right. 
For example, '4110'xr is the same as 
"411000000000000'xr. 


Seine hexadecimal constants are 
enclosed in quotes and suffixed with an 


™cC' or xe’, Such constants may be 
used in any context where a string con- 
stant i5 appropriate. There must be an 


thet 


Pett teete 
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even number of digits within a hexadeci- 
mal string constant; that is, you must 
specify each character fully that is to 
be in the string. 


The symbol 'E' or ‘Tet when used in a 
real-number expresses ‘ten to the power 
of’, 


Pascal/VS permits constant expressions 
in places where the Pascal standard only 


permits constants. Constant expres- 
sions are evaluated and replaced by a 
Single result at compile time. See 


"Constant Expressions" on page 76 for a 
description of constant expressions. 


etc: saneentannen at 


constant matches standard type 
0 INTEGER 
-~500 INTEGER 
1.0 REAL 
314159E-5 REAL 
OED REAL 
1.0E£19 REAL 
TRUE BOOLEAN 
TEES X INTEGER 
rat CHAR 
"ABC? STRING 
"C1iC2C2'*xe STRING 
"GESQQQQ0QFFFFFFFF’xr REAL 
‘abc! STRING 
ve STRING 
eer CHAR 
aris CHAR 
noe STRING 
'Thats''s all ' STRING 


Examples of Constants 
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2.7 STRUCTURED CONSTANTS 


Syntax: 


structured-constant: 


~o~p77 7? frecord-structure}---7 SSS ea aS Re Se Se a eS Se eee > 
--->farray-structure}---> 


record-structure: 


ey ee ee ee ee eee ee es ee ee 
ee ee ee ee ee we ee 
ee eet se ne St ee ee cee ee ee ee te ee ee ee 
Nt ee ee 


repetition: 


STOR CONSTANT = GXpt ) rete Se See ea reo rs Sere See eae eee Saree Sere Pee > 


note: must evaluate to positive integer. 


Structured constants are constants The second kind of structured constant 


| 
which are of a structured type. The + is used to specify records. Record con- 
type of the constant is determined by + stants are specified by a list of con- 
the type identifier which is used in its + stant expressions where each expression 
definition. These constants may be used defines one field of the record in the 
in constant declarations, value decla- order declared. You may omit a field of 
rations or in executable statements. the record within the list by specifying 


nothing between two commas, in which 
case the value of that field is not 
defined. 


There are two kinds of structured con- 
stants: one is used for arrays and the 
second is used to specify records. 


+++ 


Values within the list may correspond to 


Array constants are specified by a list fields of a re¢é¢ord's variant part. In 
of constant expressions where each order for the compiler to know which 
expression defines one element of the variant is being referenced, the tag 
array. See "Constant Expressions" on field value must be specified immediate- 
page 76 for a description ly prior to those values which are to be 
of constant expressions. You may omit assigned to the variant fields. (See the 
an element of the array within the list examples below.) The tag field must be 
in which case the value of that element specified even if it does not exist asa 
is not defined. Elements may be omitted field. (This occurs when enty a tag type 
at the end of the array in which case is specified.)? 
the value of those elements are also not 
defined. You may follow the constant The type identifier that begins a struc 
expression with a colon anda repetition tured constant may be omitted if the 
expression; this 15 used to specify that structured constant is imbedded within 
the first constant expression is to be another structured constant. This sim- 
repeated. plifies the syntax for structured con- 
stants which are multidimensional 


1 If the tag field is a "refer-back" type (see "Variant Part" on page 45) than 
1t will need to be specified twice in the List: once to be assigned a value, 
and again to identify the variant being referenced. 
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3.0 STRUCTURE OF A MODULE 


Syntax: 


modula: 


—T-—? tprogram-module} 
--->{segment-module}---> 


program-module: 


, 


——> program ee ee ( oqo ) 
coc < 


< 


< 
So deedar et i6n) 


——> {compound-statement}——> . 
declaration: 
——> {label-dcl}——-——> 


——> {constant-del} 


—>{type-del}———-———> 


=> tvat-del}—————__> 
==> {defsdeljo=—=-==+= > 
-==>{static-del}-----= > 


Bibenregs aoa if 
——>{routine-dcl} > 2 ee 


segqment-module: 


===> GEGMENT i= "=> idja=—> 4 red 

Gem ee wee eee Re eae J 

Loiaaananieabiel 

coe en staatacalentaneata >| 

ae wier-dets =oeese See a) 

ia ala tetthetaeiaee < 

[pr erenleey ie a | 

A SShomse " 

pee eng anes netn SSeo5 > 

Mesa at a ar pana al Aes nh ll wea te re ce md Ds a a a ec 
A module is an independently compilable The program is the module which gains 
unit of code. There are two types of initial control when the compiled pro- 
modules in Pascal/VS: the program module gram is invoked from the system loader. 
and the segment module. It is effectively a procedure that the 


loader invokes. The body of a program 
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ee eo 


module jis identical to the body of a 


procedure. 


A segment module may be compiled as a 
unit independent of the program module. 
It consists of routines that are to be 
linked into the final program prior to 
execution. Data is passed to routines 
through parameters and external vari- 
ables. Segments are useful in breaking 
up large Pascal/VS programs into smaller 
units. 


The global automatic variables of the 
program module may be accessed in a seg- 
ment module. See "The Var Declaration" 
on page 26 for an explanation. 


The identifier following the reserved 
word “program” must be a unique external 
name. The identifier following the word 
“SEGMENT” may be the same as one of the 
EXTERNAL routines in the segment or may 
be a unique external name. Thus, a 
function called SIN could be ina seg- 
ment called SIN. An external name is an 
identifier for a program, sagment, def 
or ref variable, EXTERNAL routine, MAIN 
procedure or a REENTRANT procedure. 


Pascal/VS program 


modules 


program-module 


program EXAMPLE; 
var 
INTEGER; 


I : 
begin 
for I:=0 to 1000 do 
if I mod 7 = 0 then 
WRITELNC 1:5, 
* IS DIVISIBLE BY SEVEN") 
end. 


Example of a Program Module 
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teeter eee e et 


execution-lLlib iL 


rary 


identifier list following 
identifier is not used by 
The identifiers will be 


The optional 
the program 
Pascal/VS. 
ignored. 


A program is formed by Linking a program 
module with segment modules Cif any) and 
with the Pascal/VS execution library and 
libraries that you may supply. 


Pascal/VS allows declarations to be giv- 
en in any order. This is an extension 
to Pascal and is provided primarily to 
permit source that is INCLUDEd during 
compilation to be independent of any 
ordering already established in the mod- 
ule. The standard ordering for 
declarations is shown in the diagram for 
declarations. (For a description of the 
INCLUDE facility see "The %INCLUDE 
Statement" on page 146.) 


identifier must be predefined or 
declared by you before it is used. 
There is one exception to this rule: a 
definition of a pointer may refer to an 
identifier before it is declared. The 
identifier must be declared later or a 
compile-time’ diagnostic will be 
produced. 


Every 


SEGMENT COSINE; 
functton COSINE 


(X = REAL ) REAL; EXTERNAL; 
function COSINE; 
var S: REAL; 
beqin 
S := SINCX); 
SQRTC1.0 - SS) 


COSINE := 
end; . 


Example of a Segment Module 


4.0 PASCAL/VS DECLARATIONS 


Pascal/VS provides you with 10 types of + def 
declarations: + 
+ ¢@ ref 
° label + 
+ static 
° const + 
+ @ value 
° type 
e procedure 
° var 
° function 


4.1 THE LABEL DECLARATION 


Syntax: 


label-dcl: 


——> lahel Pe  ebel 3 oo + 
< ao: 


label: 
a SUNS TD SA RU SO Re er 
sem No nat aa lac ar > 


Note: the values of the unsigned integer must be in the subrange 


A label declaration is used to declare 
labels which will appear in the routine SS 
and will be referenced by a goto state- 


ment within the routine. All labels label 
defined within a routine must be 10, 
declared tn a label declaration within Label _A, 
the routine. l, 

2» 
A label way be either an unsigned inte- Error_exit; 
ger or an tdentifier. If the value is 


an unsigned integer it must be in the A Label Declaration 
range 0 to 9999. ee see 
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§.2 THE CONST DECLARATION 


Syntax: 


constant-dcl: 


+ —> const a = ——>{constant-expr} > 3 > 
Baa ate el 


A constant declaration allows you to 
+ assign identifiers that are to be used 


+ as synonyms for constant expressions. const 

The type of a constant identifier is BLANK = Y's; 

determined by the type of the expression BLANKS =! "5 

in the declaration. FIFTY = 50; 
A = FIFTY; 
B = FIFTY * 10/(€3+2); 
C_SQUARED = AXA + BXB; 
ORD_OF_A = ORDC'A'); 
PI = 3.14159265358; 
MASK = '8000'°X | '0400'X; 
ALFALEN = 8; 
ALPHALEN = 163 
LETTERS = PAN CTLs Vea 

| MAXREAL = '7FFFFFFFFFFFFFFF' xr; 


Constant Declarations 
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4.3 THE TYPE DECLARATION 


Syntax: 


type-dcl: 


——> type a aes oc = —>{type}——> ; ? 
< 


A type declaration allows you to define 
a data type and associate a name to that 


type. Once declared, such a name may be type 
used in the same way as a predefined 
type name. { all of the following types } 


{ are predefined in Pascal/VS } 


INTEGER = MININT. .MAXINT; 
BOOLEAN = CFALSE,TRUE); 


ALFA packed array[1..ALFALEN] 
of CHAR; 

ALPHA = packed array[f1..ALPHALEN] 
Of CHAR; 

TEXT = file of CHAR; 


Type Declarations 
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4.4% THE VAR DECLARATION 


Syntax: 


var-del: 


——> var >{id} > : ——>{type}—> ; > 
< 


The var declaration is used to declare 
automatic variables. Automatic vari- 
ables are allocated when the routine is 
invoked, and are de-allocated when the 
corresponding return is made. If the 
routine 1s tnvoked a second time, before 
an initial invocation completes (a 
recursive call), the local automatic 
variables will be allocated again ina 
stack-like manner. The variables allo- 
cated for the first invocation become 
inaccessible until the recursive call 
completes. 


Commas are used in the declaration to 
separate two or more identifiers that 
are being declared of the same type. 
This ts a shorthand notation for two 
separate declarations. 


var 
I : INTEGER; 
SYSIN TEXT; 
X> 
Y> 
Z REAL; 
CARD 
record 
RANK =: 1..13; 
a tr (SPADE,HEART,DIAMOND,CLUB) 
end; 


Example of a Var Declaration 


Variables which are to be accessed 
across modules should be declared as def 
variables (see "The Def/Ref 
Declaration" on page 28), but if 
reentrancy 1s required, then a mechanism 
is required that does not rely on static 
storage. 


1 That 15, 
nesting level of the main program. 
2 That is, 


no way of checking the integrity. 
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The global automatic variables of the 
main program! may be accessed from a 
segment module. The storage for auto- 
matic variables declared in the outer- 
most level of a segment are mapped 
directly on top of the main program 
global variables. Therefore, to access 
the main program globals, a segment mod- 
ule must have an identical copy of the 
main program's variable declarations. 
This mechanism is not as safe? and as 
convenient as using def variables. 


If the variables of the main program are 
to be accessable across modules then the 
“INCLUDE facility should be used so that 
identical copies of the variablea's dec- 
larations can be included in all 
modules. (See "The *ZINCLUDE Statement" 
on page 146). 


program MAIN; 


var 

I >: INTEGER; 

X> 

Y > REAL; 

J : INTEGER; 

oe 6 {remainder of program module} 
SEGMENT SEG; 
Var 

I > INTEGER; 

Xx, 

Y > REAL; 

J >: INTEGER; 

ae {remainder of segment module} 


Example of a Var Declarations 
Shared between Programs and Segments 


those variables declared with the var construct in the outermost 


unpredictable errors can occur when the variables declared ina 
segment do nét match those in the associated main program. 


The compiler has 


PRE EEE EERE EEE EEE EEE HEHEHE HEHEHE HEHEHE HEHEHE 


4.5 THE STATIC DECLARATION 


The static declaration is used to 
declare static variables. The variables 
declared in this way are allocated prior 
to program execution and exist for the 


life of the program's execution. 


Static variables can be referenced 
according to the lexical scoping rules. 
Two static variables in different scopes 
are different variables even though they 
have the same name. 


Data in static variables that are local 
to a routine will be preserved over sep- 
arate invocations of the routine. Such 
a routine called recursively will access 
the same instance of each static vari- 
able. 


tree 


tte teteeese 
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* 


---> static SraiP ees >Lid}oonyoo-> fF mon > Ltyped---> 5 ga eae maa > 
L 


Static variables may be initialized at 
compile-time by the use of a value dac- 
laration. 


Programs which modify static variables 
are not reentrant. 


static 
SYSPRINT 


? e 


TEXT; 
REAL; 


Example of a Static Declaration 
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4.6 THE DEF/REF DECLARATION 


Syntax: 


def-dcl: 


pena, vaca > def 
L--> pet ---> 


The def/ref declarations are used to 


declare external variables. External 
variables are allocated prior to exe- 
cution and can be accessed from more 


than one module. All identifiers that 
are to be used as external names must be 
unique in the first eight characters. 


If an external variable with a partic-~ 


ular name 1s declared mn several 
modules, a single common storage 
location will be associated with each 
such variable. An external variable 


must be declared with identical types in 
each module; the programmer is responsi- 
ble for assuring that the types are the 
same. 


The def declaration specifies that the 
program loader is responsible for ganer- 
ating the common storage for the vari- 
able. The ref declaration specifies 
that storage for the variable 15 defined 
in another module (Cor in the runtime 
environment). Ref declared variables 
Will remain unresolved until the encom- 
passing module is compiled and linked 
With a module in which the variable is 
declared as a def variable or defined in 
a non-Pascal CSECT or in an assembly 
language COM. The expected use of ref 
variables is to access external data 
declared in non-Pascal/VS programs such 
as those written in assembly language. 


A def or ref variable may be declared 
local to a routine; the same scope rules 
apply as for any other declared identi- 
fier. However, if the name of the vari-~ 
able is declared in another scope (even 
in another module) as a def or ref vari- 
able, both occurrences of the variable 
will reference the same storage. 


In the following example, the variable X 
in procedures A, B, and C references the 
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however, the variables X 
declared in segment P and procedure D 
each refer to storage that is separate 
from the external variable X. 


same storage; 


Def variables may be initialized at com- 
pile-time by the use of a value declara~ 
tion. 


Programs which modify def, ref, or stat- 
ic variables are not reentrant. 


SEGMENT ™; 
procedure A; 
def X: REAL; { same as X in B } 
begin 
end; 
procedure B; 
daf X: REAL; € same as X in A } 
begin 
end;. 
SEGMENT P; 
static X: REAL;{ local to P } 
procedure C; 
ref X: REAL; { same as X in A,B} 
begin 
end; 
procedure D; 
var X: REAL; { local to D } 
begin 
end;. 


Examples of Def and Ref Declarations 
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4.7 THE VALUE DECLARATION 


value-dcl: 


value-assignment: 


note: 
to constant expressions. 


The value declaration is used to specify 
an initial value for static and def var- 
iables. The declaration is composed of 
a list of value-assignment statements 
separated by semicolons. The assignment 
statements ina value declaration are of 
the same form as the assignment state- 
ments in the body of a routine except 
that all subscripts and expressions must 
be able to be evaluated at compile time. 


type 

COMPLEX = record 

RE,IM: REAL 
and; 

VECTOR = arrayli..7] of INTEGER; 
static 

C: COMPLEX; 

Vi VECTOR; 

Vi: VECTOR; 
def 


I : INTEGER; 
Q@ : arrayli..10] of COMPLEX; 


{ the following assignments will } 
{ take place at compile time } 
value 

COMPLEX(3.0,4.0);3 
VECTOR(1,0:5,7); 
VECTOR(,,>,4);3 


23 
3*%4-1; 


0; 
3.1415926 / 2; 
1.414; 


Her ab gk a aaa 


Example of a Value Declaration 


If the variable contains subscripts, 


bette terete 


tebe t—t etree tt 
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Syntax: | 


--->f{variable}---> := “~"pT 77? (constant-expressi on}—-~-7 SSS ee > 
~--~>{structured-constant}---> 


the subscripts are limited 


If a def variable is initialized with a 
value declaration in one module, you may 
not use a value declaration on that var- 
table in another module. The compiler 
will not check this violation, however a 
diagnostic will be generated when you 
combine the modules into a single load 
module by the system loader. 


type 
CUBE = array[1..10,1..10,1..10] 
of REAL; 
static 
BLOCK CUBE: 


{ the following assignments will } 
{ take place at compile time 


Value 
BLOCK = 
CUBEC € €0.0:10):10 3:10 ); 


Example of Intializing 
a 3 Dimensional Array 
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+++ 


Syntax: 


——>fid: type} 

——> {enumerated-scalar-type} 
——> {subrange-scalar-type} 
——>farray-type} 
——>{record-typel 
——>{set-type} 
—>{file-type} 


L—— > {pointer-type} 


A data type determines the kind of val- 
ues that a variable of that type can 
assume. Pascal/VS allows you to define 
new data types with the type 
declaration. The data type mechanism is 
a very important part of Pascal/VS. 
With it you can describe your data with 
great clarity. 


There are several mechanisms that can be 
used to define a type; each mechanism 
allows the new data type to have certain 
properties. All data types can be clas- 
sified as either scalar, pointer, or 
structured. 


You define the data type of a variable 
when the variable is declared. A previ- 
ous type declaration allows an identifi- 
er to be associated with that type. Such 
an identifier can be used wherever a 
typa definition is needed: ina variable 
declaration (var, static, def, or ref), 
as a parameter, in a procedure or funcy 
tion, in a field declaration within a 
record definition, or in another type 
declaration. 


5.1 A NOTE ABOUT STRINGS 

Standard Pascal defines the term 
"string" as a variable or constant which 
has an associated type of 


"packed arrayll..nJ] of CHAR", where n is 
a positive integer constant. 


Pascal/VS supports varying length 
strings; that is, strings which have 
lengths that vary at execution time. A 
variable may be declared as a varying 
length string with the predefined type 
STRING (see "The Type STRING" on page 
51). 


5.0 TYPES 


Throughout this manual the term "string" 
shall refer to an object of the prede- 
fined type STRING. 


5.2 TYPE COMPATIBILITY 


Pascal/VS cba tea stron typin of 
data. strong typing permits 
Pascal/VS :s check the validity of many 
operations at compile time; this helps 
to produce reliable programs at exe- 
cution time. Strong typing puts strict 
rules on what data types are ccnsidered 


to be the same. These rules, called 
type compatibility, requires you to 


carefully declare data. 


5.2.1 Implicit Type Conversion 


In general, Pascal/VS does not perform 


implicit type conversions on data. The 
only implicit conversions that 
Pascal/VS permits are: 

1. An INTEGER will be converted to a 


REAL (SHORTREAL) when one operand of 
a binary operation is an INTEGER and 
the other is a REAL CSHORTREAL). 


2. An INTEGER will be converted to a 
REAL CSHORTREAL) when assigning an 
INTEGER to a REAL CSHORTREAL) vari- 
able. 


3% An INTEGER will be converted to a 


REAL if it 1s used in a floating 
point divide operation ('/"). 
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An INTEGER will be converted to a 
REAL (CSHORTREAL) if it is passed by 
value or passed by const to a param- 
eter requiring a REAL CSHORTREAL) 
value. 


A SHORTREAL will be converted to a 
REAL when one operand of a binary 
operation is a SHORTREAL and the 
other is a REAL. 


A SHORTREAL will be converted to a 
REAL when assigning a SHORTREAL to a 
REAL variable. 


7. A SHORTREAL will be converted to a 
REAL if it is passed by value or 
passed by const to ae parameter 
requiring a REAL value. 


8. <A string will be converted to a 
‘packed arrayll..n] of CHAR’ on 
assignment. The string will be pad- 
ded with blanks on the right if it 
is shorter than the array to which 
it is being assigned. Truncation 
will raise a runtime error if check- 
ing is enabled. 


9. A string being passed by value or 
passed by const to a formal parame- 


ter at requires a 
‘packed arraylt..nl of CHAR' will 
be converted. The string will be 


padded with blanks on the right if 
it is shorter than the array to 
which it is being passed. Trun- 
cation will raise a runtime error if 
checking is enabled. 


5.2.2 Same Types 


Two variables are said to be of the same 


type if the declaration of the 
variables: 
° refer to the same type identifier; 


° or, refer to different type identi- 
fiers which have been defined as 
equivalent by a type definition of 
the form: 


type Tl = T2 
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+++ 


5.2.3 Compatible Types 


Operations can be performed between two 
values that are of compatible types. 
Two types are said to be compatible if: 


° the types are the same; 
° one type is a subrange of the other 


or they are both subranges of the 
same type; 


° both types are strings; 

° one value jis a string literal and 
the other is a ‘packed array([1..n] 
of CHAR'; 

° one value is a string literal of one 


character and the other is a CHAR; 


e they are set types with compatible 
base types; 


° or, th are both 
‘packed arrayll. -n]) of CHAR' with 
the same number of elements. 

Furthermore, any object which is of a 

set type is compatible with the empty 


set. And, any object which is a pointer 
type is compatible with the value nil. 


5.2.% Assignment Compatible Types 


A value may be assigned to a variable if 
the types are assignment compatible. An 
expression E is said to be assignment 
compatible with variable V if: 


° the types are same type and neither 
is a file type; 


° V is of type REAL and E is compat- 
ible with type INTEGER; 


e V is a compatible subrange of E and 
the value to be assigned is within 
the allowable subrange of V; 


e Voand E have compatible set types 
and all members of E are permissible 
members of V3; or, 

° V is a ‘packed array[1..nJ] of CHAR' 

and E is a string. 


type 


X = arrayl 1..10 1] of 
INTEGER; 
DAYS = (MON, TUES, WED, THURS, 


FRI, SAT, SUN); 
WEEKDAY = MON .. FRI; 


var 


arrayl 1..10 J] of 
INTEGER; 
arrayl 1..10 ] of 
INTEGER; 


arrayf 1..10 ] of 
CHAR; 


ZEemm SO ww YS 
x< 


Ne 


WEEKDAY 


is compatible 
with 


LEaNMIOGYS 
m 


1 
2 W2, Wl 


Examples of Compatibility 
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5.3 THE ENUMERATED SCALAR 


Syntax: 


enumerated-scalar-type: 


—> ( >{id} > ) 
Sees 5 


An enumerated scalar is formed by list- 
ing each value that is permitted for a 
variable of this type. Each value is an 
identifier which is treated as a 
self-defining constant. This allows a 
meaningful name to be associated with 
each value of a variable of the type. 


type 
DAYS = (MON, TUES, WED, THURS, 
FRI, SAT, SUN); 
MONTHS = (JAN, FEB, MAR, APR, 
MAY, JUN, JUL, AUG, 
SEP, OCT, NOV, DEC); 
var 
SHAPE CTRIANGLE, RECTANGLE, 
SQUARE, CIRCLE); 
REC >: record 
SUIT: (SPADE, HEART, 
DIAMOND, CLUB); 
WEEK: DAYS 
end; 
MONTH MONTHS; 


Enumerated Scalars 


An enumerated scalar type definition 
declares the identifiers in the enumer- 
ation list as constants of the scalar 
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type being defined. The lexical scope 
of the newly defined constants is the 
same as that of any other identifier 
declared explicitly at the same lexical 
level. 


These constants are ordered such that 
the first value is less than the second, 
the second less than the third and so 
forth. In the first example, MON < TUES 
< WED < < SUN. There is no value 
less than the first or greater than the 
last. 


The following predefined functions 
operate on expressions of a scalar type 
(see the indicated section for more 


details): 
Function Page 

ORD 125 
MAX 129 
MIN 129 
PRED 130 
succ 130 
LOWEST 122 
HIGHEST 122 

Notes: 

1. Two enumerated scalar type defi- 


nitions must not have any elements 
of the same name in the same lexical 
scope. 


2. The standard type BOOLEAN is defined 
as (FALSE, TRUE). 


5.4 THE SUBRANGE SCALAR 


Syntax: 


subrange-scalar-type: 


~--> packed reo] 
ae -------- 
ogee lee 


t---> range --->{constant-expr}---> 


The subrange type 15 a subset of consec- 
utive values of a previously defined 
scalar type. Any operation which is 
permissible on a scalar type is also 
permissible on any subrange of it. 


A subrange is defined by specifying the 
minimum and maximum values that will be 
permitted for data declared with that 
type. For subranges that are packed, 
Pascal/VS will assign the smallest num- 
ber of bytes required to represent a 
value of that type. 


If the reserved word range is used in 
the subrange definition, then both the 
minimum and maximum values may be any 
expression that can be computed at com- 
pile time. If the range prefix is not 
employed then the minimum value of the 
range must be a simple constant. 


The following predefined functions 
operate on expressions of a scalar type 


(see the indicated section for more 
details): 
Function Page 

ORD 126 
MAX 130 
MIN 130 
PRED 131 
Succ 131 
LOWEST 123 
HIGHEST 123 

Notes: 


1. A subrange of the standard type REAL 
is not permitted. 


2. The number of values in a subrange 
of type CHAR is determined by the 
collating sequence of the EBCDIC 
character set. 


3. The lower bound of a subrange defi- 
nition that is not prefixed with 
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——>{constant-expr} > 


-~-->{constant-expr}--->4 


‘range! must be a simple constant 
instead of a generalized constant 
expression. 


const 
SIZE = 1000; 
type 
DAYS = (SU, MO, TU, WE, 
TH, FR, SA); 
MONTHS = (JAN, FEB, MAR, APR, 
MAY, JUN, JUL, AUG, 
SEP, OCT, NOV, DEC); 
UPPER. CASE = "A* .. *Z2*; 
ONE_HUNDRED = 0 .. 99; 
CODES = range 
CHR(CO)..CHR(255); 
INDEX = packed 1 SIZE+1; 
var 
WORK_DAY > MO .. FR; 
SUMNER > JUN .. AUG; 
SMALLINT packed 0..255; 
YEAR > 1900 .. 2000; 


Subrange Scalars 


The following example illustrates that 
two subrange types may be defined over 
the same base type. Operations are per- 
mitted between these two variables 
because they have the same base type. 


var 
NEG > MDNEN Toe OATS 
POS > 1 MAXINIT; 


Subrangas with the Same Base Type 
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teeter tt 
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5.5 PREDEFINED SCALAR TYPES 


5.5.1 The Type INTEGER 


The following table describes the oper- 
ations and predefined functions that 


apply to values which are the standard 


type INTEGER. 


INTEGER 


operation 


description 


unary 
binary 
unary 
binary 
binary 
binary 


returns the unchanged result of the operand 
forms the sum of the operands 

negates the operand 

forms the difference of the operands 

forms the product of the operands 

converts the operands to REAL and produces 


the REAL quotient 


binary 


binary forms the 


forms the integer quotient of the operands 
integer modulus af the operands 
(same as remainder 


if the arguments are positive) 


binary 
binary 
binary 
binary 
binary 
binary 


compares for equality 

compares for inequality 

compares for less than 

compares for less than or equal to 
compares for greater than or equal to 
compares for greater than 


returns 
returns 
returns 
returns 


unary 
binary 
binary 
binary 
binary 
left 
binary 


one's complement on the operand 
‘logical or' 
'logical 
"Logical xor' 
returns the left operand value shifted 
by the right operand value 

returns the left operand value shifted 


on the operands 
on the operands 
on the operands 


and!’ 


right by the right operand value 


CHRCOx) 
PRED(x) 
SUCC(x) 
ODDC(x) 
ABS(Cx) 
SQRCx) 
FLOATCx) 
MINC ) 
MAX( ) 
LOWEST(x) 


HIGHESTC(x) 
SIZEOF(x) 


function 
function 
function 
function 
function 
function 
function 
function 
function 
function 


returns x-l 
returns xt1 
returns TRUE 


if x 
function 
if x 
function 


The type INTEGER is provided as a 
pre-defined type in Pascal/VS. This 
type represents the subset of whole num- 
bers as defined below: 


type 
INTEGER = MININT..MAXINT; 


where MININT is a predefined INTEGER 


constant whose value is -—2147483643 and 
MAXINT is a predefined INTEGER constant 
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if x 
returns the absolute value of x 
returns the square of x 
returns a REAL whose value 
returns the minimum value of two or more operands 
returns the maximum value of two or more operands 
returns MININT or the minimum value of the range 
1s a subrange of INTEGER 
returns MAXINT or the maximum value of the range 
is a subrange of INTEGER 
returns the number of bytes required for a value 
of the type of x, 


returns a CHAR whose EBCDIC representation is x 


is odd and FALSE otherwise 


1s xX 


which is always 1, 2, 3, or 4 


whose value is 2147483647. That is, the 
predefined type INTEGER represents 32 
bit values in 2's complement notation. 


Type definitions 
subranges may be 


representing integer 

prefixed with the 
reserved word "packed". * For variables 
declared with such a type, Pascal/VS 
Will assign the smallest number of bytes 
required to represent a value of that 
type. The following table defines the 


number of bytes required for different 
ranges of integers. For ranges other 
than those listed, use the first range 
that encloses the desired range. Given 
a type definition T as: 


type T = packed i..j; 


law J bytes 
1 
1 
2 
2 
3 
3 
4 


0..255 
-128..127 
~32768..32767 


BYTE 
BYTE 
HALFWORD 
HALFWORD 
BYTE 
BYTE 
FULLWORD 


0..65535 
-8388608..8388607 
0..16777215 


otherwise 
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Notes: 


1. The operations of div and mod are 
defined as: 


A div B 


A mod B = A-BXCA div B), A>=0,B>0 
A mod B = B-abs(A) mod B, A<0,B>0 


TRUNCCA/B), B<>0 


B=0 when doing a div operation or 
B<=0 when doing a mod operation 
is defined as an error and will 
cause a runtime error message to 
be produced. 


2. The following operators 
logical operations: 


<< shift left logical 
>> shift right logical 
= 1's complement 

| logical inclusive or 
& logical and 

&& logical exclusive or 


perform 


The operands are treated as unsigned 
strings of binary digits. See "Logical 
Expressions" on page 78 for more details 
on logical expressions. 
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5.5.2 The Type CHAR 


The following table describes the oper- 
ations and predefined functions that 
apply to the standard type CHAR. 


CHAR 
operation description 
binary compares for equality 
or 75 binary compares for inequality 
binary compares for left less than right 
binary compares for left less than or equal to right 
binary compares for left greater than or equal to right 
binary compares for left greater than right 
ORD(x) function converts operand to an INTEGER based on ordering 
sequence of underlying character set. 
PREDCx) function returns the preceding character 
in collating sequence 
SUCCCx) function returns the succeeding character 
in collating sequence 
STRCx) function converts the operand to a STRING 
MINC ) function returns the minimum value of two or more operands 
MAX C ) function returns the maximum value of two or more operands 
LOWEST(x) function returns the minimum value of the range of the 
character x 
HIGHEST(Cx)] function returns the maximum value of the range of the 
character x 
SIZEOFCx) function returns the number of bytes required for a value 


tet tee tet te + 


of the type of a CHAR, which is always 1 


CHAR is a scalar type that consists of variable C to the EBCDIC code for the 


all of the values of the EBCDIC charac- letter A. 

ter set. Variables of this type occupy 

one byte of memory and will be aligned var C: CHAR; 
on a byte boundary. . begin 

A single-character string constant will C := TANS 
be regarded as a CHAR constant if the ee 
context so dictates. For example, the end 


assignment statement shown below sets 
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5.5.3 The Type BOOLEAN 


The following table describes the oper- 
ations and predefined functions that 
apply to the standard type BOOLEAN. 


BOOLEAN 


unary returns TRUE if the operand is FALSE, 
otherwise it returns FALSE 


operation 


4 


& binary returns TRUE if both operands are TRUE 
| binary returns TRUE if either operand is TRUE 
&& binary returns TRUE if either, but not both operands are TRUE 


= binary compares for equality 

<> or == binary compares for inequality 

< binary compares for left less than right 

<= binary compares for left less than or equal to right 

>= binary compares for left greater than or equal to right 
> binary compares for left greater than right 


function returns x is FALSE and 1 if x is TRUE 


function returns TRUE if all operands are TRUE 

function returns FALSE if all operands are FALSE 
LOWEST(Cx) function returns the FALSE by definition 
HIGHEST(x) {| function returns the TRUE by definition 


SIZEOFCx) returns the number of bytes required for a value 


function 
of the type of a BOOLEAN, which is always 1 


Binary Operations on BOOLEAN 


FALSE FALSE FALSE TRUE TRUE FALSE TRUE TRUE Name 


Equivalence 
Exclusive Or 


Vv 


Implication 


And 
Inclusive Or 
Exclusive Or 


< 
< 
<= 
>= 
> 
& 
& 


mS 


The type BOOLEAN is defined as a scalar form valid boolean functions as shown in 
whose values are FALSE and TRUE as the table of binary operations. 

though declared with the following type 

declaration: Pascal/VS will optimize the evaluation 


of BOOLEAN expressions involving ‘'&! 


ype Cand) and ']' Cor) such that the right 

BOOLEAN=C FALSE, TRUE); operand expression will not be evaluated 

if the result of the operation can be 

Variables of this type will occupy one determined by evaluating the left oper- 

byte of memory and will aligned on a and. For more details sea "Boolean 
byte boundary. The relational operators Expressions” on page 77. 
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5.5.4 The Type REAL 


The following table describes the oper- 
ations and predefined functions that 
apply to the standard type REAL. 


operation 


REAL 


description 


+ unary returns the value of the operand 

+ binary forms the sum of the operands 

- unary negates the operand 

= binary forms the difference of the operands 

¥ binary forms the product of the operands 

/ binary forms the REAL quotient of the operands 

= binary compares for equality 

< binary compares for inequality 

< binary compares for left less than right 

< binary compares for left less than or equal to right 

> binary compares for left greater than or equal to right 

> binary compares for left greater than right 

TRUNCCx) function returns the operand value truncated to an INTEGER 

ROUNDCx) function returns the operand velue rounded to an INTEGER 

ABSCx) function returns the absolute value of the operand 

SINC x) function returns the trigonometric sine of x Cin radians) 

coOSsC(x) function returns the trigonometric cosine of x Cin radians) 

ARCTANCx) function returns Cin radians) the arc tangent of x 

LNOCx) function returns the natural logarithm of x 

EXP (x) function returns natural log base raised to the x power 

SQ@RTCx) function returns square root of x 

SQ@RCx) function returns the square of x 

MINC ) function returns the minimum value of the operands 

MAXC ) function returns the maximum value of the operands 

SIZEOFCx) function returns the number of bytes required for a value 

of the type of a REAL, which is always 8 

The type REAL represents floating point The type REAL has restrictions that oth- 
data. Variables of this type will occu- er scalar types do not have. You may 
py eight bytes of memovy and will be not take a subrange of REAL nor index an 
aligned on a double word boundary. All array by REAL. The predefined functions 


REAL arithmetic is done 
precision floating point. 
Type Conversion" on page 31. 


using double SUCC, PRED, ORD, HIGHEST and LOWEST are 
See "Implicit not defined for type REAL. 
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5.5.5 The Type SHORTREAL 


The following table describes the oper- 
ations and predefined functions that 
apply to the standard type SHORTREAL. 


SHORTREAL 


operation 


+ unary returns the value of the operand 

+ binary forms the sum of the operands 

7 unary negates the operand 

= binary forms the difference of the operands 

% binary forms the product of the operands 

/ binary forms the SHORTREAL quotient of the operands 

= binary compares for equality 

<> or == binary compares for inequality 

< binary compares for left less than right 

<= binary compares for left less than or equal to right 

>= binary compares for left greater than or equal to right 
> binary compares for left greater than right 

TRUNCCx) function returns the operand value truncated to an INTEGER 
ROUND(x) function returns the operand value rounded to an INTEGER 
ABS(x) function returns the absolute value of the operand 

SINCx) function returns the trigonometric sine of x Cin radians) 
cosctx) function returns the trigonometric cosine of x Cin radians) 
ARCTANCx) function returns (Cin radians) the arc tangent of x 

LNCx) function the natural logarithm of x 

EXP (x) function natural log base raised to the x power 
SQ@RTCx) function square root of x 

SQRCx) function the square of x 

MINC ) function the minimum value of the operands 

MAXC } function returns the maximum value of the operands 
SIZEOF(x) function returns the number of bytes required for a value 


of the type of a SHORTREAL, 


which is always 4 


The type SHORTREAL represents floating 
point data. Variables of this type will 
occupy four bytes of memory and will be 
aligned on a word boundary. All 
SHORTREAL arithmetic is done using sin- 
gle precision floating point 
instructions. 


Operations between data of type REAL and 
SHORTREAL will be performed using double 
precision floating point instructions. 
The SHORTREAL operand will be implicitly 
converted to a value of type REAL. A 
SHORTREAL may be passed as an operand to 


a function or procedure that expects its 
parameter to be of type REAL if the 
parameter passing mechanism for that 
parameter is value or const. See "Im- 
plicit Type Conversion" on page 31. 


The type SHORTREAL has restrictions that 
other scalar types do not have. You may 
not take a subrange of SHORTREAL nor 
index an array by SHORTREAL. The prede- 
fined functions SUCC, PRED, ORD, HIGHEST 
and LOWEST are not defined for type 
SHORTREAL. 
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5.6 THE ARRAY TYPE 


Syntax: 


array-type: 
< 


> 


> {enumerated-scalar-type}——> 
—}—> tia: scalar-type}—--_———_> 
>{subrange-scalar-type} 


> 


The array type defines a list of homoge- 
neous elements; each element 15 paired 
with one value of the index. An element 
of the array is selected by a subscript. 
The number of elements in the array 15 
the number of values potentially 
assumable by the index. Each element of 
the array is of the same type, which is 
called the element type of the array. 
Entire arrays may be assigned if they 
are of the same type. 


Pascal/VS uses square brackets, 'C' and 
"]’, in the declaration of arrays. 
Because these symbols are not directly 
available on many I/0 devices, the sym- 
bols ‘'C€.' and '.)* may be used as an 
equivalent to square brackets. 


Pascal/VS will align each element of the 
array, if necessary, to make each ele~ 
ment fall on an appropriate boundary. A 
packed array will not observe the bound- 
ary requirements of its elements. Ele- 
ments of packed arrays may not be passed 
as var parameters to routines. 


An array which is defined with more than 
one index is said to be a 
multi-dimensional array. A 
multi-dimensional array 15 exactly 
equivalent to an array of arrays. In 
short, an array definition of the form 


arrayli,j,... ] of T 
is an abbreviated form of 
arraylil of 
arraylj] of 
nee 


where i and j are scalar type defi- 
nitions. Thus, the first and second 
type declarations in the example below 
are alternatives to the same structure. 
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=f —$__—-—____-__-___ 


> array [ == index typel——— ys } of ——>{type}) —— 
oOWVreoOCOO < 


type 
MATRIX = arrayl 1..10, 1..10 J] of 
REAL; 
MATRIXO = array 1..10 ] of 
array[ 1..10 ] of 
REAL; 
ABLE = array{BOOLEAN] of INTEGER; 
COLOR = CRED, YELLOW, BLUE); 
INTENSITY = packed array([COLOR] 
of REAL; 
ALFA = packed array[ 1..ALFALEN] of 
CHAR; 


Examples of Array Declarations 


There are two procedures available for 
conversion between a packed array anda 
similar but unpacked array. The prede- 
fined procedures PACK (see "PACK Proce- 
dure" on page 121) and UNPACK (see 
WUNPACK Procedure" on page 121) are pro- 
vided for this purpose. 


5.6.1 Array Subscripting 


Array subscripting is performed by plac 
ing an expression in square brackets 
following an array variable. The 
expression must be of a type that is 
compatible with the index type and eval- 
uate to one of the values of the index. 
See "Compatible Types" on page 32 The 
peex may be any scalar type except 
AL. 


var 


M > MATRIX; 
HUE >: INTENSITY; 
begin 


{ assign ten element array } 
MEL] >= MC2]; 

{ assign one element of a two } 
{ dimensional array two ways } 


MC1,1] 7= 3.14159; 
MC1101] 2= 3.14159; 
{ this is a reddish orange } 
HUECRED] == 0.7; 
HUELYELLOW] = 0.33 
HUECBLUE] = 0.0; 

end 


Examples of Array Indexing 
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5.7 THE RECORD TYPE 


Syntax: 


record-type: 


ae record —>({field-list}——> end ———————"""> 
> packed ——> 


field-list: 


> 
Shits par ; ——> tvariant-part}—_L_—_—» ; —j—> 
A dha ct eS > 


—= >{field} > : ——>{type} ———_—_—__—_—_—> 
| | [. . aan | | 
Wc i ce ae eee ee ste > 
cf OOO SOS 


ca a as a a es es > 
—> case >{field}——> : —l——> tid: typex—_l_- Of => 
nner | 


> {range} > 3 ¢ >{field-Llist} > ) > 
ig seaema ( ee ey | 
ee 


> 
---> ( --->f{constant-expr}---> ) <---> 
range: 
Pa COD SURULOGNPE I =e ee ee 
-~-> .. --->{constant-expr}--~-> 
A record is a data structure which is used as names is the record type itself. 
composed of heterogeneous components; That is, every field name within a 
each element may be of a different type. record must be unique, even if that name 
Components of a record are called appears ina variant part. 
fields. 
+ A field of a record need not be named; 
+ that is, the field identifier may be 
. ' + missing. In such a case, the field only 
5.7.1 Naming of a Field + serves as padding; it can not be refer- 
+ enced. 


A field is referred to by the name of 
the field. The scope of the identifiers 
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record 


INTEGER; 
CHAR; 
C =: CHAR 


A, 
BRB: 
: {unnamed} 


DATE = record 
D . 


PERSON = record 
LAST_NAME, 
FIRST_NAME 
MIDDLE_INITIAL 
AGE > 0..99; 
EMPLOYED > BOOLEAN 
end; 


Simple Record Declarations 


5.7.2 Fixed Part 


The fixed part of a record is a series 
of fields that exist in every variable 
that is declared to be of that record 
type. The fixed part, if present, is 
always before the variant part. 


5.7.3 Variant Part 


The variant part of a record permits the 
defining of an alternative structure to 
the record. The record structure adopts 
one of the variants at a time. 


The variant part of a record 
with the cas@ symbol. 
tifier may follow. This field is a sca- 
lar value that indicates which variant 
is intended to be active. 


is denoted 
A tag field iden- 


The tag field is a field in the fixed 
part of the record. When the tag field 
is followed by a type identifier, then 
the tag field defines a new field within 
the record. 


If the type identifier is missing, then 
the tag field name must be one which was 
previously defined within the record. 
This allows you to place the tag field 
anywhere in the fixed part of the 
record. 


A variant part of a record need not have 
a tag field at all. In this case, only a 
type identifier is specified in the case 
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construct. You still refer to the vari- 
ant fields by their names but it 1s your 
responsibility to keep track of which 
variant is tactive' Ci.e. contains valid 
data) during execution. 


In short, taa fields may be defined in 
the following ways: 


e "case I INTEGER of" results in I 
being a tag field of type INTEGER. 


e Weasa INTEGER of" means no tag field 

is praesent, the variants are denoted 
i values in the variant 
declaration. 


° "case I: of" means that I is the tag 
field and it must have been declared 
in the fixed part, the type of I is 
as given in the field definition of 


illustrate the 
complete record 


The following examples 
three tag fields in 
definitions. 


typa 


SHAPE = CTRIANGLE, 


SQUARE, 
COORDINATES = 


RECTANGLE, 
CIRCLE); 


{ fixed part: } 
record 
X,Y 
AREA 
case § 
TRIANGLE: 


(SIDE 
BASE 


RECTANGLE: 
CSIDEA, SIDEB 


SQUARE: 
CEDGE 


CIRCLE: 
CRADIUS : 


{ variant part: } 


REAL; 
REAL); 


REAL); 


REAL); 


REAL) 
end; 


A Record With a Variant Part 


The record defined as COORDINATES in the 
example above contains a variant part. 
The tag field is S, its type is SHAPE, 
and its value (whether TRIANGLE, RECTAN- 
GLE, SQUARE, or CIRCLE) indicates which 
variant 1s in effect. The fields SIDE, 
SIDEA, EDGE, and RADIUS would all occupy 
the same offset within the record. The 
following diagram illustrates how the 
record would look in storage. 
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eee 


fixed part: 


tag field: 


variant part: 


SIDEA EDGE 


SIDEB 


Each column in the variant represents 
one alternative for the variant. 


If you preferred the tag field to be the 
first field instead of the fourth, you 
could define it as follows: 


COORDINATES = 
record 
S > SHAPE; 
X,Y REAL; 
AREA REAL; 


case S : of 
{ variant part: } 


TRIANGLE: 

(SIDE REAL; 

BASE : REAL); 
RECTANGLE: 

CSIDEA,SIDEB REAL); 
SQUARE: 

CEDGE : REAL); 
CIRCLE: 

CRADIUS REAL) 

end; 


Record with Back Reference 
Tag Field 


If you preferred the tag field to be 
absent altogether you could define the 
record as follows: 
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COORDINATES = 
record 
X,Y REAL; 
AREA REAL; 
case SHAPE of 
{ variant part: } 
TRIANGLE: 


(SIDE 
BASE 


RECTANGLE: 
(SIDEA,SIDEB 


SQUARE: 
CEDGE 


CIRCLE: 
CRADIUS 


REAL; 
REAL); 


REAL); 
REAL); 
REAL) 


end; 


Record Variant with No Tag Field 


5.7.4 Packed Records 


The fields in a record are normally 
assigned offsets sequentially, padding 
where necessary for boundary alignment. 
In packed records, however, no such pad- 


ding is done. This may save storage 
within the record, but may dagrade per~ 
formance of the program. Fields of 


packed records may not be passed as var 
parameters to a routine. 


5.7.5 Offset Qualification of Fields 


Pascal/VS provides you a method of forc- 
ing the fields of a record to begin ata 
specified byte offset in the record. A 
field name may be followed by a integer 
constant expression enclosed in paran- 
theses which represents the byte offset 
Within the record that the field is to 
represent. All fields so specified must 
be in consecutive order according to 
offsets. If the offset is not 
specified, the field will be assigned 
the next offset that is required for 
boundary alignment. If an offset spec— 
ification attempts to assign an 
incorrect boundary for a field and the 
record is not packed, a compile time 
error will be raised. 


As an example of offset qualified fields 
Within a record, considar a large con- 


trol block of 100 bytes, in which four 
fields at various offsets need to be 
referenced. 


teehee + 


PEER EE REE HEE EEE EEE HEHEHE 


d 


The control block might be represented 


byte 


isplacement information 
0 field A Cinteger) 
36 field B (8 chars) 
80 field C (4 flags) 
92 field D Cinteger) 


in Pascal/VS as follows: 


ty 


Vv 


t 


pe 
FLAGS = set of 
(F1,F2,F3,F4); 
PADDING = packed arrayl1..4] of 
CHAR; 
CB = packed record 
A > INTEGER; 


BC36) : ALFA; 
C¢€80) =: FLAGS; 
DC392) : INTEGER; 
> PADDING 
end; 


ar 
BLOCK =: CB; 


A Record with Offset Quali fied 
Fields 
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5.8 THE SET TYPE 


Syntax: 


set-type: 


base-scalar-type: 


>{subrange-scalar-type} 


A variable whose type is a set may con- 
tain any combination of values taken 


from the base scalar type. A value is 
either in the set or it is not in. 


Note: Pascal/VS sets can be used in many 
of the same ways as bit strings (which 
often tend to be machine dependent). 
Each bit corresponds to one element of 
the base type and is set to a binary one 
when that element is a member of the 
set. For example, a set operation such 
as intersection (the operator is '*"') is 
the same as taking the ‘boolean and!’ of 
two bit strings. 


operation 


eo ee ee set of — > {base-scalar-type} ———-———_———"—————""—""> 
> packed —> 


> {enumerated-scalar-type}——> 
—{—> (id: scalar-type} —_____________________» 
> 


type 
CHARS = set of CHAR; 
DAYSOFMON = packed set of 1..31; 
DAYSOFWEEK = set of MONDAY..FRIDAY; 
FLAGS = set of 
(A,B,C,D,E,F,G6,H); 


Set Declarations 


The following table describes the oper- 
ations that apply to the variables of a 
set type. 


Set Operators 


returns the complement of the operand 


inequality 
returns TRUE if first operand is subset of 


returns TRUE if first operand is superset of 


TRUE if first operand (a scalar) is a member in 
the set represented by the second operand 


forms the union of two sets 

forms the intersection of two sets 
forms the difference between two sets 
‘exclusive’ 


union of two sets 


unary 
binary compares for equality 
> or 7 binary compares for 
= binary 
second operand 
>= binary 
second operand 
in binary 
binary 
binary 
binary 
&& binary forms an 
STIZEOFCx) function 


Set union produces a set which contains 
all of the elements which are members of 
the two operands. Set intersection 
produces the set that contains only the 
elements common to both sets. Set dif- 
ference produces the set which includes 
all elements from the left operand 
except those elements which are members 
of the right operand. Set exclusive 
union produces the set which contains 
all elements from the two operands 
except the elements which are common to 
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returns the number of bytes required for a value 
of the type of x 


both operands. The in operator tests 
for membership of a scalar within a set; 
if the scalar is not a permissible value 
of the set and checking is enabled, then 
a runtime diagnostic will result. 


The storage and alignment required for a 
set variable is dependent on the scalar 
type on which the set is based. The 
amount of storage required for a packed 
set will be the minimum number of bytes 


| needed so that every member of the set 


| may be assigned to a unique bit. 


Given 
a set definition: 


type S = set of BASE; 


Where BASE is a scalar type which is 
not a subrange 


the ordinal value of the last member M 
which can be contained on the set is: 


M == ORDCHIGHESTCBASE)) 


The following table indicates the map- 
ping of a set variable as a function of 


Size in Alignment 
Bytes 


BYTE 

HALFWORD 

BYTE 

FULLWORD 
255] (M+7) BYTE 


Range 
M 


Unpacked sets based upon integer Cor 
subranges of integers) will occupy 32 
bytes. The maximum value of a member of 
a set of integer may not exceed 255. 


The storage is the same for all unpacked 
sets of subranges of a base scalar type. 
The following illustrates this point. 


Given: 
type 

T = set of t; 

S = get of s; 
Where: 


t i185 a subrange of s. 


The. types T and S have identical storage 
mappings. 
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5.9 THE FILE TYPE 


Syntax: 
file-type: 
—> file of —>{type} 
All input and output in Pascal/VS use 


the file type. file is a structure 
consisting of a sequence of components 
where each component is of the same 
type. Variables of this type reference 
the components with pointers called file 
pointers. A file pointer could be 
thought of as a pointer into an 
input/output buffer. 


The association of a file variable to an 
actual file of the system is implementa- 
tion dependent and will not be described 
in this manual. Refer to the Program- 
mer's Guide for this information. 


type 
TEXT = file of CHAR; 
LINE = file of 
packed arrayl1..80] of 
CHAR; 
PFILE = file of 
record 


NAME: packed 
arrayl1..25] of 
CHAR; 
PERSON_NO: INTEGER; 
DATE_EMPLOYED: DATE; 
PEEKEYooaceny INTEGER 
end; 


File Declarations 


You access the file through predefined 


procedures and functions Csee "I/0 

Facilities™ on page 103). They are: 

° GET (see "GET Procedure™ on page 
107) 

e PUT (Csee "PUT Procedure™ on page 
1038) 


° EOF (see "EGF Function" on page 109) 


° EOLN (Csee "EOLN function" on page 
115) 
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° RESET (see "RESET Procedure" on page 


103) 

® REWRITE (see "REWRITE Procedure" on 
page 104) 

e READ (Csee "READ and READLN CTEXT 


Files)" on page 109) 


° WRITE €see "WRITE and WRITELN CTEXT 
Files)" on page 112) 


° TERMIN Csee "TERMIN Procedure™ on 
page 104) 

e TERMOUT Csee "TERMOUT Procedure" on 
page 105) 

e PDSIN Csee "PDSIN Procedure” on page 
105) 

« PDSOUT (Csee "PDSOUT Procedure" on 
page 106) 

° UPDATE (Csee “UPDATE Procedure" on 
page 106) 

° SEEK (Csee "SEEK Procedure" on page 
108) 

e COLS (see "COLS Function" on page 
116) 

e PAGE C€see "PAGE Procedure” on page 
115) 


° CLOSE Csee "CLOSE Procedure" on page 
107) 


OUTPUT and INPUT are predefined TEXT 
files. Pascal/VS enforces the following 
restrictions on the file type: 


1. A file may be passed by var or 
passed by const, but never by value 
to a procedure or function. 


2. A file may not be contained within a 
file. 


HERE EEE EEE EE EEE EEE EEE EEE HEHEHE HEHEHE TE 


eS 


++ 


5.10 PREDEFINED STRUCTURE TYPES 


5.10.1 The Type STRING 


Syntax: 


string-type: 


The type STRING is defined as a 
‘packed array[1..n] of CHAR’ whose 
length varies at execution time up to a 
compile time specified maximum. The 
length of the array is obtained during 
execution by the LENGTH function (see 
"LENGTH Function™ on page 137). The 
length is managed implicitly by the 
operators and functions which apply to 
STRINGS. The maximum length of the 
array is obtained during execution by 
the MAXLENGTH function (see "MAXLENGTH 
Function" on page 137). The length of a 
STRING variable is determined when the 
variable is assigned. By definition, 
string constants belong to the type 
STRING. 


A STRING variable may be subscripted 
with an integer expression to reference 
individual characters. A subscript of 1 
will reference the first character. The 
subscript value must not be less than 1 
nor exceed the string's length. 


The constant expression which follows 
the STRING qualifier in the type defi- 
nition is the maximum length that the 
string may obtain and must be in the 
range of 'l .. 32767". 


Any variable of a STRING type is compat- 
ible with any other variable of a STRING 
type; that is, the maximum length field 
of a type definition has no bearing in 
type compatibility tests. 


Implicit conversion is performed when 
assigning a STRING to a variable whose 
type is 'packed array[l..n] of CHAR’. 
All other conversion must be done 
explicitly. 
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The assignment of one string to another 
may cause a run time error if the actual 
length of the source string is greater 
then the maximum length of the target. 
Pascal/VS will never truncate implicit- 
ly. 


function GETCHAR(C 
const S$ 
IDX 


STRING; 
; INTEGER) CHAR; 
begin 
{ Subscripted string variable } 
GETCHAR := SEIDX] 


end; 


STRINGC1 
STRINGCS 
C: CHAR; 


"MESSAGE: * 
GETCHARCS1 
assigned 'S' 


0); 
> 


4); 
} 


ea ELVG.; 
C :?= GETCHAR(S2,2); 
assigned 'I' } 


Usage of STRING Variables 


The following table describes the oper- 
ations and predefined functions that 
apply to the variables of type STRING. 
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STRING 


operation description 


binary compares for equality* 
or == binary compares for inequality 

binary compares for left less than right+* 
binary compares for left less than or equal to rightt 
binary compares for left greater than or equal to rightt* 
binary compares for left greater than rightt+* 

| | binary catenates the operands 

LENGTH function returns the length of the STRING 


€see "LENGTH Function™ on page 137). 
MAXLENGTH function returns the declared length of a STRING 
Csee "MAXLENGTH Function" on page 137). 


LBOUND function returns the value 1, STRINGS always have a lower 
bound of one (see "LBOUND Function" on page 124). 
HBOUND function returns the declared maximum number of elements of 
the string (see "HBOUND Function®™ on page 124). 
SUBSTR function returns a specified portion of a STRING 
(see "SUBSTR Function"™ on page 138). 
DELETE function returns a STRING with a portion removed 
(see "DELETE Function" on page 138). 
TRIM function returns a STRING with trailing blanks removed 
Csee "TRIM Function" on page 139). 
LTRIM function returns a STRING with leading blanks removed 
(see "LTRIM Function” on page 139). 
COMPRESS function returns a STRING with multiple blanks removed 
(see "COMPRESS Function™ on page 140). 
INDEX function locates a STRING in another STRING 
(see "INDEX Function" on page 140). 
SIZEOFCx) function returns the number of bytes required for a value 
of the type of x 
READSTR procedure| converts a STRING to values by assigning variables 
(see "READSTR"™ on page 142). 
WRITESTR procedure] produces a STRING by converting the internal 


values of a list of expressions 
(sea "WRITESTR™ on page 142). 


If two STRINGs being compared are of different lengths, the 
shorter is assumed to be padded with blanks on the right 
until the lengths match. 

Relative magnitude of two strings is based upon the collating 
sequence of EBCDIC. 


FEE HEE EE EEE EEE EEE EEE EEE HEHEHE HEHEHE HEHEHE HEHEHE HHH HEHEHE HHH 


STRING Conversions with Relational Operators 


RIGHT OPERAND 
packed 
relational arrayl1..n] of 


operations 


CHAR 


STRING 


use STR'on 
the CHAR 


allowed not permitted 


packed 
arrayll..n] of 


okay if the 
types are 
compatible 


use STR on 
the array 


not permitted 


STRING 


use STR on allowed 


the array 


use STR on 
the CHAR 


HH HHP He HEHEHE HH THE HEHE HHH Ht 
oOzramveO ATMme 
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STRING Conversions on Assignment 


FROM 


assignment STRING 


T not permitted use string 
indexing to 
0 obtain char 


not permitted okay if the 
types are 


compatible 


okay, STRING is 
converted. If 
truncation is 
required, then 
an error results. 


STRING use STR to use STR to allowed 
convert CHAR convert array 
to a STRING to a STRING 
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5.10.2 The Type ALFA 


The standard type ALFA is defined as: 


const 
ALFALEN = 8; 


type 
ALFA = packed 


array[L1..ALFALEN] of 
CHAR; 


? 


operation form 


= binary 
<> or 75 binary 
< binary 
<= binary 
>= binary 
> binary 


STRCx) function 
SIZEOF(x) function 


description 


compares 
compares 
compares 
compares 
compares 
compares 
converts 


returns the number of bytes required for a value 
of the type of an ALFA, which is always 8 
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for 
for 
for 
for 
for 
for 
the 


ALFA 


Any ‘packed arrayl1l..n] of CHAR', 
including ALFA, may be converted to type 
STRING by the predefined function STR. 
The following table describes the oper- 
ations and predefined functions that 
apply to the variables of the predefined 
type ALFA. 


+t tet ee + 


equality 

inequality 

left less than right 

left less than or equal to right 
left greater than or equal to right 
left greater than right 

ALFA to a STRING 


tHE EEE HEHEHE HEH 


PEER EEE HEE EEE HEHE + 


The standard type ALPHA is defined as: 


const 
ALPHALEN = 


type 
ALPHA = pa 


operation 


z= 
ss 

> 

STR(x) 
SIZEOF(x) 


5.10.3 The Type ALPHA 


16; 


cked 
arrayll..ALPHALEN] of 
CHAR; 


Any "packed arrayll1..nJ] of CHAR', 
including ALPHA, may be converted to 
type STRING by the predefined function 
STR. The following table describes the 
operations and predefined functions 
that apply to the variables of the pre- 
defined type ALPHA. 


+e ee et 


form description 


binary compares 
binary compares 
binary compares 


binary compares 
binary compares 
binary compares 
function converts 


equality 

inequality 

left less than right 

left less than or equal to right 
left greater than or equal to right 
left greater than right 

ALPHA to a STRING 


function returns the number of bytes required for a value 
of the type of an ALPHA, which is always 16 
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5.10.4 The Type TEXT 


The standard type TEXT is defined as: 


type 


TEXT = file of CHAR; 


In addition to the predefined procedures 
to do Input and output, Pascal/VS 
defines several procedures which oper- 


ate only on files of type TEXT. These 
procedures perform character to 
internal representation CEBCDIC) con- 


versions and gives you some control over 
output field lengths. The predefined 
routines that may be used on TEXT files 
are: 

e GET C"GET Procedure™ on page 107) 

e PUT C"PUT Procedure™ on page 108) 

° EOF C"EOF Function" on page 109) 


e EOLN C"EOLN function" on page 115) 


° RESET C™RESET Procedure” on page 
103) 

° REWRITE CYREWRITE Procedure™ on 
page 104) 


° READ C"READ and READLN CTEXT Files)" 
on page 109) 


° READLN C"READ and 
Files)" on page 109) 


READLN (CTEXT 
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° WRITE ("WRITE and WRITELN CTEXT 


Files)” on page 112) 


° WRITELN C"™WRITE and WRITELN CTEXT 
Files)” on page 112) 


e PAGE C"PAGE Procedure" on page 115) 


e CLOSE C"CLOSE Procedure" on page 
107) 

° COLS C"COLS Function" on page 116) 

° PDSIN C"PDSIN Procedure" on page 
105) 

° PDSOUT C"PDSOUT Procedure" on page 
106) 

° TERMIN C"™TERMIN Procedure” on page 
104) 

e TERMOUT C"TERMOUT Procedure™ on 
page 105) 

° UPDATE C"UPDATE Procedure" on page 
106) 


Pascal/VS predefines two TEXT variables 
named OUTPUT and INPUT. You may use 
these files without declaring them in 
your program. 


terre teteereee t+ 


5.1] THE POINTER TYPE 


Syntax: 


pointer-type: 


=o Sh*t ee ee 


Pascal/VS allows variables to be created 
during program execution under” your 
explicit control. These variables, 
which are called dynamic variables, are 
generated by the predefined procedure 
NEW. NEW creates a new variable of the 
appropriate type and assigns its address 
to the argument of NEW. You must 
explicitly deallocate a dynamic vari- 
able; the predefined procedures DISPOSE 
and RELEASE are provided for this pur- 
pose. 


Dynamic variables are created in an area 
of storage called a heap. A new heap is 
created with the MARK predefined proce- 
dure; a heap i8 released with the 
RELEASE predefined procedure. A initial 
heap is allocated by Pascal/VS. All 
variables that were allocated in a heap 
are deallocated when the heap is 
released. An attempt to use a dynamic 
variable that has been deallocated Cei- 
ther via DISPOSE or RELEASE) is an 
error. 


Pascal/VS pointers are constrained to 
point to a particular type. This means 
that on declaration of a pointer, you 
must specify the type of the dynamic 
variable that will be generated by NEW 
or referenced. 


Pascal/VS defines the named constant nil 
as the value of a pointer which does not 
point to any dynamic variable (Cempty 
pointer). Nil is type compatible to 
every pointer type. 


The only operators that can be applied 
to variables of pointer type are the 


The 


test for equality and 
predefined function ORD may be applied 
to a pointer variable; the result of the 


inequality. 


function is an integer value which is 
equal to the address of the dynamic var- 
iable referenced by the pointer. There 
is no function in Pascal/VS to convert 
an integer into a pointer. 


type 
PTR = a ELEMENT; 
ELEMENT = record 


PARENT PTR; 

CHILD =: PTR; 

SIBLING: PTR 
end; 


A Pointer Declaration 


This example illustrates a data types 
that can be used to build a tree. With 
this structure the parent node contains 
a pointer to the eldest child, the 
eldest potnts to the next sibling who 
points to the next, and 50 forth. 


In the above example type ELEMENT was 
used before it was declared. Referenc- 
ing an identifier prior to its declara- 
tion is generally not permitted in 
Pascal/VS. However, a type identifier 
which is used as the base type to a 
pointer declaration is an exception to 
this rule. 
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5.12 THE TYPE STRINGPTR 


Variables of type STRING have’ two 
lengths associated with them: 


e The current length which defines the 
number of characters in the string 
at any instant in time. 


° The maximum length which defines the 
storage required for the string. 


The predefined type STRINGPTR defines a 
pointer to a string which has no "maxi- 
mum length" associated with it until 
execution time. The procedure NEW is 
used to allocate storage for this type 
of pointer; an integer expression is 
passed to the procedure that specifies 
the maximum length of the allocated 
string. See "NEW Procedure” on page 
119. 
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var 
P >: STRINGPTR; 
Q >: STRINGPTR; 
i > 0..32767;3 
begin 
I := 59; 
NEWCP,(CI+1) div 2); 
WRITELNC MAXLENGTHCP) ); 
{writes '30' to output } 
NEWCQ,5);5 
Qa c= 11234567890"; 
{causes a truncation } 
{error at execution } 
end 


Using the Predefined type STRINGPTR 


5.13 STORAGE, PACKING, AND ALIGNMENT 


For each variable declared with a par- 
ticular type, Pascal/VS allocates a spe- 
cific amount of storage on a specific 
alignment boundary. The Programmer's 
Guide describes implementation 
requirements and defaults. 


Pascal/VS provides the packed record 
feature in which all boundary alignment 


is suppressed. Fields of a packed 
record are allocated on the next byte, 
ignoring alignment requirements. 


Packed data occupies less space and is 
more compact but may increase the. exe- 
cution time of the program. Moreover, a 
field of a packed record or an element 
of a packed array may not be passed by 
read/write reference (var) to a routine. 
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6.0 ROUTINES 


Syntax: 


routine-dcl: 


To? fprocedure~headi ng} ——————-_> 
es ia Te 
ee 


——>{directive)}-——— 3; --—-----.,rOOOWW NN"... nn > 


< 
——>{declaration}——> 


—>{compound-statement}——> ; > 


procedure-heading: 


—> procedure ——> {id}——> {formal-parameters}————————__—____—_——_-—_———> 


function-heading: 


—> function ——>{id}—>{formal-parameters}——> : —>{id:type}—————> 
directive: 

OR SSS ee ee ee > 
EXTERNAL SAS Sss3 S255 e2Ss— Sos Sse > 
FORTRAN Ss SSeS s2 5526 s64 Seat esSSoe reste seSseeas > 


formal-parameters: 

> ( >{formal}——7——> ) > 

es ogee ae 2 
ain a ee 

formal: 


> var ot ane eam > ——>f{id: type} 
| [---> const nee r [< » < 
> 


—~> {procedure-heading} 


—>{function-heading} 


There are two categories of routines: flexibility of the language: functions 
procedures and functions. Procedures add to your ability to express data 
should be thought of as adding new transformation in expressions. 
statements to the language. These new 

statements effectively increase the Routines can return data to the caller 
language to a superset language contain- by altering the var parameters or by 
ing statements tailored to your assigning to variables that are common 
specialized needs. Functions should to both the invoker and the invoked rou- 
also be thought of as increasing the tine. In addition, functions also 
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return a value to the invoker 


return from the function. 


upon 


6.1 ROUTINE DECLARATION 


Routines must be declared prior to their 
use. The routine declaration consists 
of the routine heading, declarations and 
one compound statement. 


The heading defines the name of the rou- 
tine and binds the formal parameters to 
the routine. The heading of a function 
declaration also binds the function name 
to the type of value returned by the 
function. Formal parameters” specify 
data that is to be passed to the routine 
when it is invoked. The declarations 
are described in chapter 4. The com- 
pound statement will be executed when 
the routine is invoked. 


6.2 ROUTINE PARAMETERS 


Formal parameters are bound to the rou- 
tine when the routine is defined. The 
formal parameters define what kind of 
data may be passed to the routine when 
it is invoked. These parameters also 
specify how the data will be passed. 


When the routine is invoked, a parameter 
list is built. At the point of invoca- 
tion the parameters are called the actu- 
al_parameters. 


Pascal/VS permits parameters to be 
passed in following ways: 

e pass by value 

© pass by read/write reference (var) 


e pass by read only reference (const) 


° pass by conformant string (var or 
const) 
® formal routine parameter 


6.2.1] Pass by Value Parameters 


Pass by value parameters can be thought 
of as local variables that are initial- 
ized by the caller. The called routine 
may change the value of this kind of 
parameter but the change 1S never 
reflected back to the caller. Any 
expression, variable or constant (Cex- 
cept of file type) may be passed with 
this mechanism. 
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6.2.2 Pass by Var Parameters 


Pass by Var (variable) is also called 
pass by reference. Parameters that are 
passed by var reflect modifications to 
the parameters back to the caller. 
Therefore you may use this parameter 
type as both an input and output parame- 
ter. The use of the var symbol in a 
parameter indicates that the parameter 
is to be passed by read/write reference. 


Only variables may be passed by this 


mechanism; expressions and constants 
may not. Also, fields of a packed 


record or elements of a packed array may 
not be passed as var parameters. 


6.2.3 Pass by Const Parameters 


Parameters passed by const may not be 
altered by the called routine. Also you 
should not modify the actual parameter 
value while the call to the routine has 
not yet completed. If you attempt to 
alter the actual parameter while it is 
being passed by const, the result is not 
defined. This method could be called 
pass by read only reference. The param- 
eters appear to be constants from the 
called routine's point of view. Any 
expression, variable or constant may be 
passed by const (fields of a packed 
record and elements of a packed array 
may also be passed). The use of the 
"const" reserved word in a parameter 
indicates that the parameter is to be 
passed by this mechanism. With parame- 
ters which are structures (such as 
strings), passing by const is usually 
more efficient than passing by value. 


6.2.% Formal Routine Parameters 


A procedure or function may be passed to 
a routine as a formal parameter. Within 
the called routine the formal parameter 
may be used as if it were a procedure or 
function. 


6.2.5 Conformant String Parameters 


It is often desirable to call a proce- 
dure or function and pass in a string 
whose declared length does not match 
that of the formal parameter. The 
conformant string parameter is used for 
this purpose. 


The conformant string parameter is a 
pass by const or pass by var parameter 
With a type specified as STRING without 
a length qualifier. Strings of any 
declared length will conform to such a 
parameter. You can use the MAXLENGTH 


t+eteeee 


6.3.1 


6.3.2 TF 


parameter. You can use the MAXLENGTH 
function to obtain the declared length. 
See "MAXLENGTH Function" on page 137. 


procedure TRANSLATE 
(var S : STRING; 
const TABLE: STRING); 
var 
I > 0..32767; 
J > 1... ORDCHIGHESTCCHAR) )+1; 


begin 
1 to LENGTHCS) do 


for I o:= 
REST 
ORDCSLIIJ)+1; 
if J > LENGTHCTABLE) then 
SCIJ := * ° 
else 
SCI] := TABLECJ]; 
end; 
end; 


Example of a Conformant Strings 


6.3 ROUTINE COMPOSITION 


There are six kinds of routines: 


° internal 
e FORWARD 

° EXTERNAL 
° FORTRAN 

° REENTRANT 
e MAIN 


The directive used to identify each kind 
of declaration is shown in upper case 
above. 


Note: 


° A routine must be declared before it 
can be referenced. This allows the 
compiler to assure the validity of a 
call by checking parameter compat- 
ibility. 


Internal Routines 


An internal routine may be invoked only 
from within the lexical scope that con- 
tains the routine definition. 


FORHARD Routines 


A routine declared FORWARD is the means 
by which you can declare the routine 
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heading before declaring the declara- 
tions and compound statement. The rou- 
tine heading is declared followed by the 
symbol '‘'FORWARD'. This allows you to 
have a call toa routine prior to defin- 
ing the routine's body. If two routines 
are to be mutually recursive and are at 
the same nesting level, one of the rou- 
tines must be declared FORWARD. 


To declare the body of the FORWARD rou- 
tine, you declare the routine leaving 
off the formal parameter definition. 


6.3.3 EXTERNAL Routines 


An EXTERNAL routine 
function that can be invoked from out- 
side of its lexical scope (such as, 
another module). The EXTERNAL directive 
is used to specify the heading of such a 


15 a procedure or 


routine. While many modules may call an 
EXTERNAL routine, only one module will 
actually contain the body of the 
routine. The formal parameters defined 


in the EXTERNAL routine declaration must 
match those in the module where the rou- 
tine is defined. An EXTERNAL routine 
declaration may refer to a Pascal/VS 
routine which is located later in the 
same module or located in another module 
or it may refer to code produced by oth- 
er means (such as assembler code). 


The folloning example illustrates two 
modules (Ca program module and a segment 
module) that share a single EXTERNAL 
routine. Both modules may invoke the 
routine but only one contains the defi- 
nition of the routine. 


program TEST; 
function SQUARE(X 
- EXTERNAL; 
begin 
WRITELN(C 
end . 


REAL) : REAL; 


SQUAREC44) 33 


SEGMENT 5S; 
function SQUARE(X : 
EXTERNAL; 
function SQUARE; 
begin 
SQUARE == X ® X 
end; 


REAL) : REAL; 


Example of an EXTERNAL Function 


The body of an EXTERNAL routine may only 
be defined in the outermost nesting lev- 
el of a module; that is, it must not be 


+ nested within another routine. 
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6.3.4 FORTRAN Routines 


A FORTRAN routine is’ similiar to an 
EXTERNAL routine in that it specifies a 
routine that is defined outside the mod- 


ule being compiled. In addition, it 
specifies that the routine is a FORTRAN 
subprogram and therefore the con- 


ventions of FORTRAN are to be used. A 
FORTRAN routine is never defined within 
a Pascal/VS module. If you pass a 
literal constant to a FORTRAN subprogram 
by CONST, then you must assure that the 
FORTRAN subprogram does not alter the 
contents of parameter. In order to meet 
the requirements of FORTRAN you must 
obey the following restrictions: 


e All parameters may be only var or 
const parameters. 

° If the routine is a function, it may 
only return a scalar result Cthis 
includes REAL and SHORTREAL). 

° Routines may not be passed. 

° Multi-dimensional arrays are not 
remapped to conform to FORTRAN 


is, an element of an 
in Pascal will be ele- 
in FORTRAN. 


indexing, that 
array AC€n,m] 
ment ACm,n) 


6.3.5 MAIN Procedures 


The MAIN directive is used to identify a 
Pascal procedure that may be invoked as 
if it were a main program. It is some- 
times desirable to invoke a Pascal/VS 
procedure from a non-Pascal routine, for 
example FORTRAN or assembler language. 
In this case it is necessary for certain 
initializing operations to be performed 
prior to actually executing the Pascal 
procedure. The MAIN directive specifies 
that these actions are to be performed. 


There are several restrictions on the 
use of the MAIN directive. 


° only procedures may have the MAIN 
directive; 
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is declared to be 
its body located in 


e a procedure that 
MAIN must have 
the same module; 


° the execution of a MAIN procedure 
Will not be reentrant; 


° the MAIN directive may only be 
applied to procedures in the outer- 
most nesting level. 


Consult Pascal/VS Programmer's Guide, 
order number ShH20-6162 for further 


details on using MAIN. 


6.3.6 REENTRANT Procedures 


The REENTRANT directive is used to iden- 


tify a Pascal procedure that may be 
invoked as if it were a main program 
like a MAIN procedure. In addition, 


invocations of these procedures will be 
reentrant. 


In order to achieve this addition fea- 
ture, some help is required from you. 
The first parameter of ae procedure 
defined with the REENTRANT directive 


must be an INTEGER passed by var. Prior 
to the very first call from a 
non-Pascal/VS program you must initial- 
ize this variable to zero (0). On 


subsequent calls you must pass the same 
variable back unaltered (Pascal/VS sets 
the variable on the first call and needs 
that value on the subsequent 
invocations). You need not call the 
same procedure each time, you may call 
different procedures - just continue to 
pass this variable on each call. 


Consult Pascal/VS Programmer's Guide, 


order number S$H20-6162 for further 
details on using REENTRANT. 
Note: All Pascal/VS internal procedures 


The REEN- 
is used to specify a 
procedure that is both reentrant and 
invokable from outside the Pascal/VS 
execution environment. 


and functions are reentrant. 
TRANT directive 


6.3.7 Examples of Routines 


static 
Cc: ; 

function GETCHAR: CHAR; 
EXTERNAL; 


procedure EXPR(var VAL: 
EXTERNAL; 


INTEGER); 


procedure FACTOR(var VAL: 
EXTERNAL; 
procedure FACTOR; 
begin 
C := GETCHAR; 
if c = 'C' then 


INTEGER); 


begin 
C += GETCHAR; 
EXPRCVAL) 
and 
else 
end; 


procedure EXPR {var VAL: 
begin 
FACTORCVAL)s 


INTEGER}; 


end; 


Examples of Routine Declarations 


funetion CHARFOUND 
(const S: STRING; 
C: CHAR): 
var I: 1..255; 
begin 
for I := 1 to LENGTHC(S) do 
if SCI] = ¢c then 
begin 
CHARFOUND := TRUE; 
return 
end; 
CHARFOUND := FALSE; 
end; 


BOOLEAN; 


Example of Const Parameter 


6.4% FUNCTION RESULTS 


A valua is returned from a function by 
assigning the value to the name of the 
function prior to leaving the function. 
This value is inserted within the 


expression at the point of the call. 
The value must be assignment conformable 
to the type of the function. 


If the function name is used on the 
right side of an assignment, it will be 
interpreted as a recursive call. 


function FACTORIAL 


: (X: INTEGER): INTEGER; 
beqin 
if X <= 1 then 
FACTORIAL := 1 
else 
FACTORIAL := X * FACTORIAL(CX-1) 


end; 


Example of Recursive Function 


Standard Pascal permits a function to 
return only a scalar value. Pascal/VS 
provides for a function to return any 
type except a file. This means that you 
can write a Pascal/VS function that 
returns a record structure as its result 
(such as you might wish to do for imple- 
menting a complex arithmetic library). 
A function may also return a string, 
however you must specify the maximum 
length of the string to be returned. 


type 
COMPLEX = record 
R,I : REAL 
end 
function CADD 
(const A.B COMPLEX) COMPLEX; 
var . 
C : COMPLEX; 
begin 
C.R := A.R + B.R; 
C.I := A.I * B.I; 
CADD := C€ 
end; 


Example of a Function Returning a Record 


RE id a 


5 PREDEFINED PROCEDURES AND FUNC- 
Q 


6. 
TIONS 


Pascal/VS predefines a number of proce- 
dures and functions that you may find 
valuable. Details of the predefined 
procedures and functions are given in 
section titled "I/0 Facilities" on page 
LOS: 
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+++ 


‘antire 


Syntax: 


variable: 


=> tals 


> , —>ofid: field} 
> a 


into five 


Pascal/VS divides variables 


classes depending on how they are 

declared: 

° automatic (var variables) 

° dynamic Cpointer-qualified vari- 
ables) 

e static (static variables) 

e external (def/ref variables) 

e parameter (declared on ae routine 


declaration) 


A variable may be referenced in several 
ways depending on the variable's type. 
You may always refer to the entire vari- 
able by specifying its name. You may 
rafer to a component of a structured 
variable by using the syntax shown in 
the syntax diagram. 


If you simply specify the name of the 
variable, then you are referring to the 
variable. If that variable is 
declared as an array, then you are 
referring to the entire array. You may 
assign an entire array. Similarly, you 
may also deal with record and set vari- 
ables as units. 


imme ei ci 8 dowel (ara 


TNL SN20-4446 (31 December 81) to SH20-6168-1 


7.0 VARIABLES 


subscripted variable 


field reference 


pointer reference 


LINE1, 
LINE2 packed 
array[l 1..80 ] of 
CHAR; 
{ assign all 80 characters } 
{ of the array } 


LINEL == LINE2; 


Using Variables in their entirety 


7.1 


SUBSCRIPTED VARIABLE 


An element of an array is selected by 
placing an indexing expression enclosed 
within square brackets, after the name 
of the array. The indexing expression 
must be of the same type as declared on 
the corresponding array index defi- 
nition. 


A multi-dimensional array may be refer- 
enced as an array of arrays. For exam- 
ple, let variable A be declared as 
follows: 


A: array [a..b,c..d] of T 
As explained in "The Array Type" on page 
42, this declaration is eaxactly equiv- 
alent to: 


A: array [a..b] of 
array Eca..d] of T 
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A reference of the form ALI] would be a 
variable of type: 


array [c..d] of T 


and would represent a single row in 
array A. reference of the form 
ACLIJ£EZJ] would be a variable of type T 
and would represent the Jth element of 
the Ith row of array A. This latter 
reference would customarily be abbrevi- 
ated as 


ATI,J] 


Any array reference with two or more 
subscript indicies can be abbreviated by 
writing the subscripts in a comma sepa- 
rated list. That is, ACIICJJ... could 
be written as ACI,J,...]. 


If the '"%CHECK SUBSCRIPT! option is ena- 
bled, the index expression will be 
checked at execution time to make sure 
its value does not lie outside of the 
subscript range of the array. An exe- 
cution time error diagnostic will occur 
if the value lies outside of the pre- 
scribed range. (For a description of 
the CHECK feature see "The *CHECK State- 
ment” on page 148.) 


A variable of type STRING may be sub- 
scripted with an integer expression to 
reference individual characters. The 
value of the subscript must not be less 
than 1 or greater than the length of the 
string. String subscripts are checked 
at run time if *CHECK SUBSCRIPT is ena- 
bled. 


AC1i2] 

ACT] 

ALC I#J ] 

DECKE CARD-FIFTY J] 

MATRIXE ROWECIJ, COLUMNEJ] J] 


Subscripted Variables 


7.2 FIELD REFERENCING 


A field of a record is selected by fol- 
lowing the record variable by a period 
and by the name of the field to be ref- 
erenced. 
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var 
PERSON: 
record 
FIRST_NAME, 
LAST_NAME: STRING(15); 
end; 
DATE: 
record 
DAY: 1..31;3 
MONTH: 1..12;3 
YEAR: 1900..2000 
end; 
DECK: 
arrayl1..52] of 
record 
CARD: 1..13;3 
SUIT: 


(SPADE, HEART, 
DIAMOND, CLUB) 
end; 


PERSON.LAST_NAME == ‘SMITH’; 
DATE.YEAR == 1978; 

DECKE I J.CARD <= 2; 

DECKE I ].SUIT := SPADE; 


Field Referencing Examples 


7.3. POINTER REFERENCING 


A dynamic variable is created by the 
predefined procedure NEW or by an imple- 
mentation provided routine which 
assigns an address to a pointer 
variable. You may refer either to the 
pointer or to the dynamic variable; ref- 
erencing the dynamic variable. requires 
using the pointer notation. 


For example 


var P ? a R; 


P refers to the pointer 
Pa refers to the dynamic variable 
If the "%CHECK POINTER’ option is ena- 


bled, any attempt to reference a pointer 
that has not been assigned the address 
of an allocated variable will result in 
an execution time error diagnostic. 
(For a description of the CHECK feature 
see "The “CHECK Statement" on page 148.) 


If the "*CHECK POINTER’ option is ena- 
bled, any attempt to reference a file 
pointer which has no value will result 
in an execution time error diagnostic. 
(For a description of the CHECK feature 
see "The *CHECK Statement" on page 146.) 


var 
INPUT > TEXT; 
OUTPUT : TEXT; 
LINEL > array C1 


{ scan off blanks 

{ from a file of CHAR 

GETCINPUT); 

while INPUTa = ' ' do 
GETCINPUT); 


{ transfer a line to the 


{ OUTPUT file 
for I := 1 to 80 do 
begin 
OUTPUTS := LINEIC 
PUTCOUTPUT) 
end; 


--80] of CHAR; 


fod ned 


we 


I]; 


File Referencing Examples 


Variables 
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+++ 


Syntax: 


constant-expr: 
expr: 


—>{simple-expression} 


VMN VY VV VY 


simple-expression: 


——> {factor} 


< 
factor: 

—> {function-call} 
——> {variable} 

——> {set-constructor} 


ee > ( ——>f{expr}—> ) 


——> not ——>{factor} 


——> f{unsigned-constant} 


Pascal/VS expressions are similar in 
function and form to expressions found 
in other high level programming lan- 
guages. Expressions permit you to com- 
bine data according to specific 
computational rules. The type of compu- 
tation to be performed is directed by 
operators which are grouped into four 
classes according to precedence: 


-~-> {structured-constant}--~------- 


EXPRESSTONS 


>{simple-expression}——> 


ee ee 


~- the not operator Chighest) 

- the multiplying operators 

~ the adding operators 

- the relational operators Clowest) 


An expression 15 evaluated by performing 
the operators of highest precedence 
first, operators of the next precedence 
second and so forth. Operators of equal 
precedence are performed in a left to 
right order. If an operator has an 
operand which 1s a parenthesized sub- 
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expression, the 
evaluated 
operator. 


sub-expression is 
prior to applying the 


The operands of an expression may be 
evaluated in either order; that is, you 
should not expect the left operand of 
dyadic operator to be evaluated before 
the right operand. If either operand 
changes a global variable through a 
function call, and if the other operand 
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uses that value, then the value used is 
not specified to be the updated value. 
The only exception is in boolean expres-— 
sions involving the logical operations 
of ‘and' (&) and '‘or' (|); for these 
operations the right operand will not be 
evaluated if the result can be deter- 
mined from the left operand. See 
"Boolean Expressions" on page 77. 
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Examples of Expressions 


Assume the following declarations: 


const 
ACME. = 'acme'; 
type 
COLOR = (RED, YELLOW, BLUE); 
SHADE = set of COLOR; 
DAYS = (SUN, MON, TUES, WED, THUR, FRI, SAT); 
MONTHS = (JAN, FEB, MAR, APR, MAY, JUN, 
JUL, AUG, SEP, OCT, NOV, DEC); 
var 
A_COLOR =: COLOR; 
A_SET > SHADE; 
BOOL > BOOLEAN; 
MON > MONTHS 
I> 
J > INTEGER; 
factors: 
2 variable 
15 unsigned constant 
CIX8tJ) parenthetical expression 
C RED ] - set of one element 
Cc ] empty set 
ODDCIXJ) function call 
not BOOL complement expression 
COLOR( 1 ) scalar type converter 
ACME constant reference 
terms: 
I factor 
Ix J multiplication 
I div J integer division 
ACME || '* TRUCKING* catenation 
A_SET * C RED ] set intersection 
I & '"FFOO'X logical and on integers 
BOOL & ODDCI) boolean and 


Ix J term 

je ae addition 

I | '80000000'X logical or on integers 
A_SET + C€ BLUE J] set union 

- I unary minus on an integer 


expression:: 


I+ J simple expression 
RED = A_COLOR relational operations 
RED tn A_SET test for set inclusion 
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8.1 OPERATORS 


operator 


¥ 


+eeet 
A 
A 


operator 


| + 


1 Cor) 
+ |} Cor) 
+ 


&& Cxor) 


+++ 


&& Cxor) 


Multiplying Operators 


multiplication 


real division 


integer division 
modulo 

boolean and 
logical snd 

set intersection 
string catenation 


logical laft shift 


logical right shift] INTEGER 


INTEGER 

REAL 

REAL, INTEGER 
SHORTREAL 
SHORTREAL, INTEGER 
SHORTREAL, REAL 


INTEGER 

REAL 

REAL, INTEGER 
SHORTREAL 


SHORTREAL, 
SHORTREAL, 


INTEGER 
REAL 


INTEGER 
INTEGER 
BOOLEAN 
INTEGER 
set of t 
STRING 

INTEGER 


Adding Operators 


operation 


addition 


subtraction 


set difference 
boolean or 
logical or 

set union 
exclusive or 


Yexclusive’ union 
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INTEGER, INTEGER 
REAL, REAL 

REAL, INTEGER 
SHORTREAL, SHORTREAL 
SHORTREAL, INTEGER 
SHORTREAL, REAL 


INTEGER, INTEGER 
REAL, REAL 

REAL, INTEGER 
SHORTREAL, SHORTREAL 
SHORTREAL, INTEGER 
SHORTREAL, REAL 


set of t 
BOOLEAN 
INTEGER 


set of t 
INTEGER 
set of t 


INTEGER 
REAL 

REAL 
SHORTREAL 
SHORTREAL 


SHCRTREAL 
SHORTREAL 
REAL 
INTEGER 
INTEGER 
BOOLEAN 
INTEGER 
set of t 
STRING 
INTEGER 


INTEGER 


INTEGER 
REAL 

REAL 
SHORTREAL 
SHORTREAL 
REAL 


INTEGER 


PREAL 


REAL 
SHORTREAL 


|} SHORTREAL 


REAL 

set of t 
BOOLEAN 
INTEGER 
sat af t 
INTEGER 
set of t 
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The Not Operator 


operation operand 


boolean not BOOLEAN 
INTEGER 


operator 


logical one's 
complement 


set complement 


Relational Operators 


operator operation operands 


= compare equal any set, scalar type, 
pointer or string 


<> (45) compare not equal any set, scalar typa, 
pointer or string 


< compare less than scalar type or string BOOLEAN 
<= compare < or = scalar type, string BOOLEAN 
<= subset set of ¢t BOOLEAN 
> compare greater scalar type, string BOOLEAN 
>= compare > or = scalar type, string BOOLEAN 
>= superset set of t BOOLEAN 
in set membership t and set of BOOLEAN 
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8.2 CONSTANT EXPRESSIONS 


Constant expressions are expressions 
which can be evaluated by the compiler 
and replaced with a result at compile 
time. By its nature, a constant expres- 
sion may not contain a reference to a 
variable or to a user-defined function. 
Constant expressions may appear in con- 
stant declarations. 


The following predefined functions are 
permitted in constant expressions: 


Function Page 
ABS 132 
CHR 126 
HIGHEST 123 
LENGTH 137 
LOWEST 123 
MAX 130 
MAXLENGTH 137 
MIN 130 
ODD 132 
ORD 126 
PRED 131 
scalar conversion 

functions 127 
SIZEOF 125 
succ 131 
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constant 

expression type 
ORDC'TA') INTEGER 
SUCCCCHRC'FOTX)) CHAR 
256 div 2 INTEGER 


"TOKEN'T| |STRCCHR(0)) STRING 
"8000'X | '0001'X INTEGER 

MO ea OA set of CHAR 
32768%2-1 INTEGER 


Examples of Constant Expressions 


8.3 BOOLEAN EXPRESSIONS 


You should recognize that Pascal assigns 
the operations of "&" Cand) and "[" a 
higher precedence than the relational 
operators. This means that the expres- 
sion: 


A<B & C<D 
will be evaluated as 


CA < CB&C)) < D 


Thus, it is advisable to use parenthesis 
when writing expressions of this sort. 


Pascal/VS will optimize the evaluation 
of BOOLEAN expressions involving '‘'&! 
Cand) and "[{' Cor) such that the right 
operand of the expression will not be 
evaluated if the result of the operation 
can be determined by evaluating the left 
operand. For example, given that A, B, 
and C are boolean expressions and X isa 
boolean variable, the evaluation of 


X := Aor Borc 
would be performed as 


if A then 
X == TRUE 
else 
if B then 
X == TRUE 
else 
X : 


The evaluation of 
X := A and B and C 
would be performed as 


if -A then 
X == FALSE 


The evaluation of the expression will 
always be left to right. 


The following example demonstrates log- 
ic which depends on the conditional 
evaluation of the right operand of the 
"and"™ operator. 


type 
RECPTR = aREC; 
REC = record 
NAME: ALPHA; 
NEXT: RECPTR; 
end; 


var 
P =? RECPTR; 
LNAME ALPHA; 


begin 


while (P<>nil) and 
i CPa.NAME <> LNAME) 
0 


P := Pa.NEXT; 
end; 


Example at a BOOLEAN Expression 
that Depends on Order of Evaluation 


Notes: 


° If you use a function in the right 
operand of a boolean expression, 
then you must be aware that the 
function may not be evaluated. Fur- 
ther, you should note that relying 
on side-effects from functions is 
considered a bad programming pracy 
tice. 


e Not all Pascal compilers support 
this interpretation of BOOLEAN 
expressions. If you wish to assure 
portability between Pascal/VS and 
other Pascal implementations you 
should write the compound tests ina 
form that uses nested 
if-statements. 
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8.4% LOGICAL EXPRESSIONS 


Many of the integer operators provided 
in Pascal/VS perform logical operations 
on their operands; that is, the operands 
are treated as unsigned strings of bina- 
ry digits instead of signed arithmetic 
quantities. For example, if the integer 
value of -1 was used as an operand of a 
logical operation, it would be viewed as 
a string of binary digits with a 
hexadecimal value of 'FFFFFFFF*'X. 


The logical operations are defined to 
apply to 32 bit values. Such an opera- 
tion on a subrange of an INTEGER could 
yield a result outside the subrange. 


The following operators perform logical 
operations on integer operands: 


° "2" Cand) performs a bit-wise and of 
two integers. 


° "!’ Cor) performs a bit-wise inclu- 
Sive or. 
° "Rat Cxor) performs ae bit-wise 


exclusive or. 
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'-' (not) performs a one's comple- 


ment of an integer. 


'<<' shifts the left operand value 
left by the amount indicated in the 
right operand. Zeroes are shifted in 
from the right. 


'>>' shifts the left operand value 
right by the amount indicated in the 
right operand. Zeroes are shifted in 
from the left. 


257 & "FF'X yields al 

21418 yields 14 

4 << 2 yields 16 

“4 << J yields ~8 

8 >> 1 yields 4 

-8 >> 1 yields "7 FFFFFFC'X 
YFFFF'X >> 3 yields TLFEFTX 

-1 & 'FEFYX yields ‘Frets 

-0 yields = 

"FFEYX && 8 yields TRI TX 


Examples of Logical Operations 


8.5 FUNCTION CALL 


Syntax: 


function-~call: 


actual-parameters: 


A function returns a value to the 
invoker. A call to a function passes 
the actual parameters to the correspon- 
ding formal parameters. Each actual 
parameter must be of a type that is 
conformable to the corresponding formal 
parameter. You may not pass a field of 
a packed record as a var parameter. You 
also may not pass an element of a packed 
array as a var parameter. 


The parenthesis list may be dropped if 
the function requires no parameters. 
However, if you wish to draw attention 
to a function call that has no parame- 
ters and make it appear different froma 
variable reference, you can follow the 
function name with an empty set of 
parenthesis. 


—>{id: function}——> factual-parameters} 


var A,B,C: INTEGER; 
function SUM 
CA,B: INTEGER): INTEGER; 
begin 
SUM == A+B 
end; 
begin 
GC := SUMCA,B) * 2 
end; 


Function Example 
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8.6 SCALAR CONVERSIONS 


Pascal/VS predefines the function ORD 
that converts any scalar value into an 
integer. The scalar conversion func 
tions convert an integer into a speci- 
fied scalar type. An integer expression 
13 converted to another scalar type by 
enclosing the expression within paren- 
theses and prefixing it with the type 
identifier of the scalar type. If the 
operand is not in the range 0 
ORD(HIGHEST (scalar type)), then a sub- 
range error will result. The conversion 
is performed in such a way as to be the 
inverse of the ORD function. See 
"Scalar Conversion" on page 126. 


The definition of any type idantifier 
that specifies a scalar type Cenumerated 
scalars or subranges) forms a scalar 
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conversion function. By definition, the 
expression CHAR(x) is equivalent to 
CHR(x); INTEGER(Cx) is equivalent to x; 


and ORD(type(x)) is equivalent to x. 


type 
WEEK = 
(SUN,MON, TUE,WED, THU,FRI,SAT); 
var 


DAY: WEEK; 


{The following assigns SAT to DAY} 
DAY := WEEK(6); 


Scalar Conversion Functions 


&§.7 SET CONSTRUCTOR 


Syntax: 


set-contructor: 


eect mae | >{expr} pee ereresn ey eee 
> .. ——>f{expr} > | 
| aa Pi eens a a eae 
——_—___—_> 


A set constructor is used to compute a 
value of a sat type within an 


expression. type 
DAYS = set of 
The set constructor is list of comma (SUN,MON,TUES,WED,THU,FRI,SAT); 
separated expressions oor expression CHARSET= set of CHAR; 
pairs Within square brackets. An 
expression pair designates that all val- var 
ues from the first expression through WORKDAYS, 
the last expression are to be included WEEKEND: DAYS 
in the resulting set; the evaluation of NONLETTERS: CHARSET; 


the first expression must produce a val- 

ue less than or equal to the value : 

computed by the second expression. Each WORKDAYS := [MON..FRI]; 
expression must be of the same type; WEEKEND <:= -~ WORKDAYS; 
this type becomes the base scalar type . 

of the set. If the set specifies INTE- : 

GER valued expressions, then there is an NONLETTERS := 
implementation restriction of 256 ele- ~ ['* 
ments permitted in the set. 


SS AT T2545 


| Set Constructor 
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9.90 STATEMENTS 


Syntax: 


statement: 

—>f{label}——> : ee] 

< 

-~-> fassert-statement) - = - 99-9 nnn rr ere eee ese > 
—>{assignment-statement} ——__—_—__ > 
—>{case-statenent)}——————_—_—_—— — — — 
—>{compound-statement } ———______———— 
~~-> {continue-statement} - re ttt erent rrr > 
—>{ampty-statenent}——————————— 
oss OF cys Bins carrie Pe 
——> {goto-statenent) ———_————————— eee 
—>{if-statenent) ——_——_—__—_—_—_— 
~-~> fleave-statement} mre rrr rrr rrr rr rrr treet nts e en > 
—> {procedure-cal1}———_______ 
—>{repaat-statenent) ———__ 


SL ELUrnis Ste tenant aH oss Sean ses assesses SSs > 


—>{while~statenent) ———————_——_——— 
—>{with-statenent) ——————_——_——__—_——__ > 
Statements are your directions to per- those found tn most high level program- 
form specific operations based on the ming languages. 
data. The statements are similar to 
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9.1 THE ASSERT STATEMENT 


et 


Syntax: 


assert-statement: 


---> assert ~---> lexpr)} mrt mtr rrr rrr rr rrr errr reso > 


The assert-statement is used to check 
for a specific condition and signal a 
runtime error if the condition is not 
met. The condition is specified by the 
expression which must evaluate to a 
BOOLEAN value. If the condition is not 
TRUE then the error is raised. The com- 
piler may remove the statement from the 
program if it can be determined that the 
assertion is always true. 
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Example: 
A >= B 
The Assert Statement 


assert 


9.2 THE ASSIGNMENT STATEMENT 


Syntax: 


assiqnment-statement: 


> {variable}—~—_y7——> = 
LSS astunct) onl 


The assignment-statement is used to 
assign a value to aevariable. This 
statemant is composed of a reference to 
a variable followed by the assignment 
symbol ¢€':="), followed by an expression 
which when evaluated is the new value. 
The variable must be conformable to the 
expression. The rules for expression 
conformability are given in “Type Com- 
patibility™ on page 31. 


You may make array assignments Cassign 
one array to another array) or record 
assignments Cassign one record to anoth- 
er). When doing this, the entire array 
or record 15 assigned. 


A result is returned from a function by 
assigning the result to the function 
name prior to leaving the function. See 
"Function Results” on page 65 


Pascal/VS will not permit the assignment 
of a value to a pass by const parameter. 


“=> {expr} ——_——_____—__—__ 


Example: 


type 
CARD = record 

SUIT : CSPADE, 
HEART, 
DIAMOND, 
CLUB); 

RANK : 1..13 

end; 


var 
X» Y> Z 


LETTERS, 

DIGITS, 

LETTER_OR_DIGIT 
set of CHAR; 


Le dy K INTEGER; 
DECK : arrayl 1..52 ] of 
CARD; 


> 


REAL; 


X i= Y¥XZ; 
LETTERS CAT LL TZ 75 
DIGITS [ 'o" .. 79" J; 


LETTER_OR_DIGIT 
DECKE I J].SUIT 
DECKE J ] 


LETTERS + DIGITS; 
HEART; 
DECKE K J]; 


Assignment Statements 
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+++ 
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9.3 _ THE CASE STATEMENT 


Syntax: 


case-~statement: 


——> case —>{expr}—> of ] 
< 
> > :—>D > 
Uh) anne eae ee 
(cn AGS ef bt etre 4 


. 
? 


<— ; 


< 
>{statement}---7--- > 
am wes st ee ee . prea ena f | 


The case-statement provides you with a 
multiple branch based upon the evalu- 


ation of an expression. This statement Example: 
consists of an expression called the 
selector anda list of statements. The type 
selector must be of scalar type Cexcept SHAPE = CTRIANGLE, RECTANGLE, 
type REAL). Eath statement is prefixed SQUARE, CIRCLE); 
with one or more ranges of the same type COORDINATES = 
as the selector; each range is separated record 
by a comma. Each range designates one X,Y > REAL; 
or more values called case labels. AREA > REAL; 

case S : SHAPE of 
Pascal/VS evaluates the expression and TRIANGLE: 
executes the statement whose case label (SIDE : REAL; 
equals the value of the expression. If BASE =: REAL); 
no case label equals the value of the RECTANGLE: 
expression, then the otherwise state- (SIDEA,SIDEB : REAL); 
ment is executed if it is present; if SQUARE: 
there is no otherwise statement and the CEDGE = REAL); 
*CHECK CASE option is on, then a runtime CIRCLE: 
error will result. If the checking is CRADIUS =: REAL) 
not enabled the results will not be pre- end; 
dictable. var 


COORD : COORDINATES; 
The range values of a case-statement may 


be written in any order. However, you With COORD do 
may not designate the same case label on case S of 
more than one statement. TRIANGLE: 
AREA := 0.5 ® SIDE *® BASE; 
RECTANGLE: 
AREA == SIDEA * SIDEB; 
SQUARE: 
AREA == SQRCEDGE); 
CIRCLE: 
AREA := 3.14159 * SQRCRADIUS) 
end; 


The Case Statement 
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Example: 


type 


RANK = CACE, 


TWO, THREE, FOUR, 


FIVE, SIX, SEVEN,EIGHT, 
NINE, TEN, JACK, QUEEN, 


KING); 
gre SERA Mn neuewau eae 


SUIT = 
CARD = recor 
R RANK; 
5 SUIT 
end; 
var 


POINTS =: INTEGER; 
A_CARD *: CARD; 


case A_CARD. 
ACE: 
POINTS 
TWO..TEN: 
POINTS 
otherwise 
POINTS 
end; 


The Case Statement with otherwise 


R 


~ 
_— 


of 

11; 
ORDCA_CARD.R)+1 
10 
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9.4% THE COMPOUND STATEMENT 


Syntax: 


compound-statement: 


—> begin >{statement}——7——> end 
PRR Sas 3; < 


The compound-statement serves to brack- 
et a series of statements that are to be 
executed sequentially. The reserved 
words "begin™ and "end" delimit the 
statement. Semicolons are used to sepa- 
rate each statement in the list of 
statements. 
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Example: 


if A > B then 


begin { 
TEMP 
A 


B 
end 


swap A and B } 


A; 


B; 
TEMP 


Compound Statement 
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9.5 THE CONTINUE STATEMENT 


TNL SN20-4446 (31 December 81) to SH20-6168-1 


Syntax: 


continue-statement: 


---> continue 


The continue statement causes a jump to 
the loop-continuation portion of the 
inner-most enclosing for, While, or 
repeat statement. In other words, it is 
a goto to the end of the loop. 


The following examples illustrate how 
the continue statement functions in each 
of the loop constructs. 
while expr do begin 
continue 
(¥continue jumps to here) 
end 


for i := expri to expr2 do 
begin 


continue 


(¥continue jumps to here) 
end 


repeat 
continue 


(¥continue jumps to here) 
unNtTL expr; 
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9.6 THE EMPTY STATEMENT 


Syntax: 


empty-statement: 
ee Re Nee AE ee EE DS TES ee eT A ke a a a Pa A EEE SS I Alea 


The empty-statement is used as a place outer nested if-statement (see page 94 ) 
holder and has no effect on the exe- by using an empty-statement. 

cution of the program. This statement 

is often useful when you wish to place a if bl then 

label in the program but do not want it if b2 then 

attached to another statement (such as, sl 

at the end of a compound-statement). else 

The empty-statement is also useful to { empty-statement } 

avoid the ambiguity that arises in nest- else 

ed if-statements. You may force a s2 


single else-clause to be paired with the 
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9.7 THE FOR STATEMENT 


Syntax: 


for-statement: 


——> for —>ftid}—> 


The for-statement repeatedly executes a 
statement while the control variable is 
assiqned a series of values. The value 
of the control variable is incremented 
(to) or decremented (donnto) for each 
iteration of the loop. The increment 
(decrement) is computed by the SUCC 
CPRED) function. That is, the control 
variable 1s changed to the succeeding 
(preceding) value of the type of the 
control variable. 


The for-statement initializes the con- 
trol variable to the first expression. 
Prior to each execution of the component 
statement, the control variable is com- 
pared less than or equal to (to), or 
greater than or equal to (downto) the 
second expression. Pascal/VS computes 
the value of the second expression at 
the beginning of the for-statement and 
uses the result for the duration of the 
statement. Thus the ending value 
expression iS computed once and can not 
be changed during the for-statement. 


The control variable must be an automat— 
ic variable which is declared in the 
immediately enclosing routine. Also, it 
may not be subscripted, field qualified 
or referenced through a pointer. The 
type of the control variable must be a 
scalar type. 


The executed statement must not alter 
the control variable. If the control 
variable is altered within the loop, the 
resultant loop execution is not predict- 
able. The value of the control variable 
after the for-statement is executed is 
undefined Cyou should not expect the 
control variable to contain any partic-— 
ular value). 


Given the following statement 
for I := expril to expr2 do stmt 
where I is an automatic scalar variable; 


exprl and expr2 are scalar expressions 
which are type-compatible with I; and 


= ——> {expr} > to Tee po een Oe re 
ae: ie 6 downto ——> | 
> do —> {statement }——————_—_———> 


'stmt' is any arbitrary statement. The 
following compound statement is func 
tionally equivalent: 


begin 
TEMP1 == exprl; 
TEMP2 := expr2; 
if TEMP1 <= TEMP2 then 
begin 


if I = TEMP2 then 
leave; 
I := SUCCCI) 
until FALSE; {forever} 
end 
end 


Where '"TEMP1" and "TEMP2* are compiler 
generated temporary variables. 


And given the following statement 
for I := exprl downto expr2 do stmt 


where I is an automatic scalar variable; 
exprl and expr2 are scalar expressions 
which are type-compatible with I; and 
*stmt’ is any arbitrary statement. The 
following compound statement is funcy 
tionally equivalent: 


begin 
TEMP1 := exprl; 
TEMP2 := expr2; 
if TEMP 1 >= TEMP2 then 
begin 


if I = TEMP2 then 


I := PREDCI) 
until FALSE; {forever} 
end 
end 


where "TEMP1* and "TEMP2' are compiler 
generated temporary variables. 
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Examples: 


{ find the maximum INTEGER in 
{ an array of INTEGERs 
MAX := ALLI; 
LARGEST := 1; 
for I := 2 to SIZE_OF_A do 
if ACI] < MAX then 
bagin 
LARGEST := TI; 
MAX := ALI] 
end 


Hagel Caged 


{ matrix multiplication: C<-AxB  } 


for I := 1 to N do 
for J:= 1 to N do 


bagin 
X i= 0; 
for K := 1 to N do 
X i: ACI,K] * B[K,J] + X; 
CCI,J] := X 
end 


{ sum the hours worked this week } 
SUM := 0; 
for DAY := MON to FRI do 

SUM := SUM + TIMECARDE DAY ] 


The For Statement 
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9.8 THE GOTO STATEMENT 


Syntax: 


goto-statement: 


——> goto —>{label} 


The goto-statement changes the flow of 
control within the program. 


Examples: 


goto 10 
goto ERROR_EXIT 


The Goto Statement 


The label must be declared within the 


routine that 


contains the 


goto-~statement. 


The following restrictions apply to the 
use of the goto statement: 


You may not branch into a compound 
statement from aée§$goto-statement 
which is not contained within the 
statement. 


You may not branch into the then- 
clause or the else-clause from a 
goto-statement that is outside the 
if-statement. Further, you may not 
branch between the then-clause and 
the else-clause. 


You may not branch into a case-al- 
ternative from outside the 
case-statement or between case-al- 
ternative statements in the same 
case-statement. 


You may not branch into ae for, 
repeat, or while loop from a goto 
statement that is not contained 
within the loop. 


You may not branch into a 
with-statement from a 
goto-statement outside of the 
with-statement. 


For a goto-statement that specifies 
a label that is defined in an outer 
routine, the target label may not be 
defined within a compound statement 
or loop. 


The following example illustrates legal 
and illegal goto-statements. 


procedure GOTO_EXAMPLE; 
label 
L1, L2, L3, L4 


procedure INNER; 


begin 
goto L4; { permitted } 
goto L3; { not permitted } 
end; 
begin 
goto L3; { not permitted } 
begin 
L3: 
goto L4; { permitted } 
goto L3; { permitted } 
end; 


L4:if expr then 


L1: goto L2 { not permitted } 


else 


L2: goto Ll { not permitted } 


end; 


Goto Target Restrictions 
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9.9 THE IF STATEMENT 


Syntax: 


if-statement: 


——> if —>{expr}—> then icici Nea eSNG | AE: 
> else —>{statement}—> 


The if-statement allows you to specify 
that one of two statements is to be exe- 
cuted depending on the evaluation of a 
boolean expression. The if-statement is 


composed of an expression and a then- 
else-clause. 


clause and an optional 
Each clause contains one statement. 


The expression must evaluate to a 
BOOLEAN value. If the result of the 
expression is TRUE, then the statement 
in the then-clause is executed. If the 
expression evaluates to FALSE and there 
15S an else-clause, then the statement in 
the else-clause is executed; if there is 
no else-clause, control passes to the 
next statement. 


Example: 


if A <= B then 
A ?= CAt+1.0)72.0 


if ODDCI) then 
Ji=Jtl 

else : 
J:=J div 2+1 


The If Statement 


Nesting of an if-statement within an 
if-statement could be interpreted with 
two different meanings if only one 
statement had an else-clause. The fol- 
lowing example illustrates the condi-~ 


tion that produces the ambiguity. 
Pascal/VS. always assumes the first 
interpretation. That is,» the 


else-clauses are paired with the inner- 
most if-statement. 
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The following line could be 
interpreted two ways. 


if bl then if b2 then stmti else stmt2 


Interpretation 1 
Cassumed by Pascal/VS) 


if bl then 
begin 
if b2 then 


Interpretation 2 
Cincorrect interpretation) 


if bi then 
begin 
if b2 then 
stmtl 


If the second interpretation is desired 
you could code it as shown or you could 
take advantage of the empty-statement. 


if bl then 
if b2 then 
stmtl 
else 
{ empty statement } 
else 
stmt2 


ee ee ee 


9.10 THE LEAVE STATEMENT 


Syntax: 


leave-statement: 


The leave statement causes an immediate, 
unconditional exit from the inner-most 
enclosing for, while or repeat loop. 
For example, the following two code seg- 
ments are functionally equivalent: 


While expr do 
begin 
leave 
enc; 


While expr do 
begin 


goto lab; 
enc; 
lab: ; 


Pa i a ee ee 


TNL SN20-4446 (31 December 81) to SH20-6168-1 


Example: 


P:=FIRST; 
while P<>nil do 
if PA.NAME = "JOE SMITH’ then 
leave 
else 
P:=Pa.NEXT; 
{ P either points to the desired } 
{ data or is nil } 


The Leave Statement 
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9.1) THE PROCEDURE CALL 


Syntax: 


procedure-call: 


am (A TA Gi REN oN FE 
sae gel « > {expr > ) > 
Le » < 


The procedure-statement causes the 

invocation of a procedure. When a pro- 

cedure is invoked, the actual parameters 

are substituted for the corresponding Example: 

formal parameters. The actual parame- 

ters must be conformable to the formal TRANSPOSECAN_ARRAY, 
paramaters. The rules for expression NUM-OF_ROWS, 
conformability are given in "Type Com- NUM-OF_COLUMNS); 


patibility" on page 31. 
MATRIX_ADDCA_ARRAY, 


Parameters which are passed by B_ARRAY, 
read/write reference (var) may only be C_ARRAY, 
variables, never expressions or con- N,M);5 

stants. Also, fields of a packed record 

may not be passed by var. Parameters XYZCI+J, KL) 

passed by value or read-only reference 

(const) may be any expression. Procedure Invocations 


A procedure invocation that requires no 
parameters does not use the list of 
operands. 
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Syntax: 


repeat-statement: 


—> repeat —T{—? istatement}—7—> until ——>{expr} 
<——- 5 < 


The statements contained between the 
statement delimiters repeat and until 
are executed until the control expres- 
sion evaluates to TRUE. The control 
expression must evaluate to type 
BOOLEAN. Because the termination test 
is at the end of the loop, the body of 
the loop is always executed at least 
once. The structure of the 
repeat~statement allows it to act likea 
compound statement in that it encloses a 
list of statements. 


I := J3 
J ?=K 
until J = 0 
The Repeat Statement 
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9.13 THE RETURN STATEMENT 


Syntax: 


return-statement: 


SS2>CPOtUrh. <S8=sesss3s 268 Ses SSS Hes ees ase eee ea mS Sar Se SesHSk Sees KS =SS= 


The return-statement permits an exit 
from ao#eprocedure or function. This 
statement is effectively a goto to an 
imaginary label after the last statement 
within the routine being executed. 

the “CHECK FUNCTION option is enabled, 


Pascal/VS will insure that a function 
has been assigned a value prior to the 
return from the function. If a value 
has not been assigned, a runtime error 
will occur. 


tee ee 
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9.14 THE WHILE STATEMENT 


Syntax: 


while-statement: 


——> while ——>{expr}—> do —>{statement} 


The while-statement allows you to speci- 
fy a statement that is to be executed 
while a control expression evaluates to Example: 
TRUE. The control expression must eval- 
uate to type BOOLEAN. The expression is { Compute the decimal size of N } 
evaluated prior to each execution of the { assume N >= 1 } 
statement. I := 0; 
Jo := 1; 
while N > 10 do 
begin 
I : 
J 
N 
end 
{ I is the power of ten of the } 
{ original N } 
{ J is ten to the I power } 
{ 1 <= N <= 9 } 


I+ 1; 
J *® 10; 
N div 10 


The While Statement 


Statements 99 


9.15 THE WITH STATEMENT 


Syntax: 


with-statement: 


——> with >{variable} > do — >{statement} 
eS ee 


The with-statement is used to simplify 
references to a record variable by elim- 
inating an addressing description on 
every reference to a field. The 
with-statement makes the fields of a 
record available as if the fields were 
variables within the nested statement. 


The with-statement effectively computes 
the address of a record variable upon 
executing the statement. <Any modifica- 
tion to a variable which changes the 
address computation will not be 
reflected in the pre-computed address 
during the execution of the with state- 


ment. The following example illustrates 
this point. 
var A arrayl 1..10 ] of 
record 
FIELD =: INTEGER 
end; 
I:=13_ 
with AC I J do 
begin 
K == FIELD; {Ki =ACL1].FIELD} 
I t= 2; 
K := FIELD; {K:=AL1].FIELD} 
end; 


The Address of A is Computed 
on Entry to the Statement 


The comma notation of a with-~statement 
is an abbreviation of nested 
with-statements. The names within a 
with-statement are scoped such that the 
last with statement will take 
precedence. A local variable with the 
same name as a field of a record becomes 
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unavailable in a with statement that 
specifies the record. 


Example: 
type 
EMPLOYEE = 
record 
NAME > STRING(20); 
MAN_NO =: 0..999999; 
SALARY : INTEGER; 
ID_NO 0..999999 
end; 
var 
FATHER a EMPLOYEE; 
With FATHERA do 
begin 
NAME = 'SMITH!’; 
MAN_NO == 666666; 
SALARY := WEEKLY_SALARY; 
ID_NO = MAN_NO 
end 


is equivalent to: 


begin 
FATHER .NAME 7= 'SMITH'; 
FATHER@.MAN_NO 666666; 
FATHERA.SALARY := WEEKLY_SALARY; 
PPR epee Cen’ ?= FATHERa.MAN_NO 
en 


Note: The variable FATHER is of type 
pointer to EMPLOYEE, thus the pointer 
notation must be used to specify the 
record pointed to by the pointer. 


The With Statement 


Example: 


Vo: mecord 
V2 : INTEGER; 
Vi : record A : REAL end; 


A =: INTEGER 
end; 
A : CHAR; 
With V,V1 do 
begin 
V2 := 13 { V.v2 := 1 } 
A >= 1.03; € V.VL.A 2:= 1.0 } 
V.A := ] { V.A := 1 } 
{ CHAR A is not } 
{ available here} 
end; 
A := 'A'*; { 


CHAR A is now } 
{ available } 


With Statements Can Hide a Variable 


Statements 


101 


Input and output are done using the file 
data structure. The Pascal/VS Program-— 
mer's Guide provides more detail on how 
to use the I/0 facilities in a specific 
operating system. Pascal/VS provides 
predefined routines which operate on 
variables of a file type. The routines 


are: 

° RESET 

e REWRITE 
° READ 

e WRITE 

° GET 

° PUT 

° EOF 

° CLOSE 

° UPDATE 
° TERMIN 

° TERMOUT 
° PDSIN 

° PDSOUT 

e SEEK 


To facilitate input and output oper- 
ations that require conversion to and 
from aocharacter representation, the 
predefined file type TEXT is provided. 
The type TEXT is predefined as a file of 
CHAR. Each GET and PUT transfers one 
CHAR of information. There are addi- 
tional predefined routines that may be 
executed on variables of type TEXT that 
perform the required conversions. 


° READLN 


e WRITELN 
° EOLN 
° PAGE 
° COLS 


10.0 I/70 FACILITIES 


10.1 RESET PROCEDURE 


Open a File for Input 


Definition: 


procedure RESETC 
filetype; 


F 
const S STRING); 


Where: 


F is a variable of a file type 
S is an optional string value that 
specifies options 


RESET positions the file pointer to the 
beginning of the file and prepares the 
file to be used for input. After you 
invoke RESET the file pointer is point- 
ing to the first data element of the 
file. If the file is associated with a 
terminal, the terminal user would be 
prompted for data when the RESET is exe- 
cuted. This procedure can be thought of 
as: 


1. Closing the file Cif open). 
2 Rewinding the file. 

3. Opening the file for input. 
4 


Getting the first component of the 
file. 


The string parameter is used to specify 
any special file dependent options to be 
used in opening the file. Consult the 


Pascal/VS Programmer's Guide, order 
number SH20-6162 which describes the 


options that are available. 
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10.2 REWRITE PROCEDURE 


Open a File for Qutput 


Definition: 


procedure REWRITEC 
F : filetype; 
const S : STRING); 


Where: 


F is a variable of a file type 
S$ is an optional string value that 
specifies options 


REWRITE positions the file pointer to 
the beginning of the file and prepares 
the file to be used for output. This 
procedure can be thought of as: 


1. Closing the file Cif open). 

2. Rewinding the file. 

3. Opening the file for output. 

The string parameter is used to specify 


any special file dependent options to be 
used in opening the file. Consult the 


Pascal/VS Programmer's Guide, order 
number SH20-6162 which describes the 


options that are available. 
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10.3  TERMIN PROCEDURE 


Open a File for Input from the Terminal 


Definition: 


procedure TERMINC 
F : TEXT; 


const § STRING); 


Where: 


F is a variable of type TEXT 
S is an optional string value that 
specifies options 


TERMIN opens the designated file for 
input from the users) terminal. The 
string parameter is used to specify any 
special file dependent options to be 
used in opening the file. Consult the 


Pascal/VS Programmer's Guide, order 
number SH20-6162 which describes the 


options that are available and operating 
system dependencies on this procedure. 


10.4% TERMOUT PROCEDURE 
Open a File for Output from the Terminal 


Definition: 


procedure TERMOUTC 
F : TEXT; 


const $§ STRING); 


Where: 


F is a variable of type TEXT 
S is an optional string value that 
specifies options 


TERMOUT opens the designated file for 
output to the users”) terminal. The 
string parameter is used to specify any 
special file dependent options to be 
used in opening the file. Consult the 


Pascal/VS Programmer's Guide, order 
number SH20-6162 which describes the 


options that are available and operating 
system dependencies on this procedure. 


10.5 PDSIN PROCEDURE 
Open a File for Input from a PDS 


Definition: 


procedure PDSIN(¢ 
F : filetype; 


const S$ STRING); 


Where: 


F is a variable of a file type 
S is a string value that specifies 
options 


PDSIN opens a member ina library (Cpar- 
titioned) file for input. 


The string parameter is used to specify 
any special file dependent options to be 
used in opening the file. Consult the 
Pascal /VS Programmer's Guide, order 
number S$H20-6162 which describes the 
options that are available. 
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10.6 PDSOUT PROCEDURE 


Open a File for Output to a PDS 


Definition: 


procedure PDSOUT( 
F : filetype; 


const S$ STRING); 


Where: 


F is a variable of a file type, 
§ is a string value that specifies 
options. 


PDSOUT opens a member ina library Cpar- 
tittoned) file for output. 


The string parameter is used to specify 
any special file dependent options to be 
used in opening the file. Consult the 
Pascal/VS Programmer's Guide, order 
number S$H20-6162 which describes the 
options that are available. 
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10.7 UPDATE PROCEDURE 


Open a File for Input and Output 


Definition: 


procedure UPDATEC 
F : filetype; 


const 5 STRING); 


Where: 


F is a variable of a file type, 
S is a string value that specifies 
options. 


UPDATE opens a file for both input and 
output Cupdating). A PUT operation 
replaces a file component obtained from 


a preceding GET operation. The exe- 
cution of UPDATE causes an implicit GET 
of the first file component (as in 
RESET). The following program fragment 
illustrates the use of UPDATE. 
var 
FILEVAR file of record 


CNT : INTEGER; 
end; 


UPDATECFILEVAR); {open and get} 
While mot EOFCFILEVAR) do 


begin 
FILEVARA.CNT := FILEVARO.CNT+1; 
PUTCFILEVAR); {update last elem} 
GETCFILEVAR); {get next elem } 


end; 


The string parameter is used to specify 
any special file dependent options to be 
used in opening the file. Consult the 
Pascal/VS Programmer's Guide, order 
number SH20-6162 which describes the 
options that are available. 


+ 10.8 CLOSE PROCEDURE 

+ 

+ 

+ Close a File 

+ 

+ Definition: 

+ 

+ procedure CLOSEC 

+ F : filetype); 

+ 

+ 

+ Where: 

+ 

+ F is a variable of a file type 

+ 

+ 

+ 

+ CLOSE closes a file; all processing to 
+ the file is completed. You must open 


+ the file prior to using it again. 


10.9 GET PROCEDURE 


Position a File to Next Element 


Definition: 


procedure GETC F 


filetype ); 
Where: 


F is a variable of a file type. 


GET positions the file pointer of a file 
(previously opened for input) to the 
next component in the file. For 
example, if the file is defined as an 
array of 80 characters, then each GET 
returns the next 80 character record. A 
GET invocation on a file of type TEXT 
returns a single character. 
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10.10 PUT PROCEDURE 
Position a File to Next Element 


Definition: 


procedure PUTC F filetype ); 


Where? 


F is a variable of a file type. 


PUT releases the current component of 
the file variable by effectively writing 
the component to the associated physical 
file. A call to PUT witha file of type 
TEXT transfers a single character. The 
file must have been previously opened 
for output. 
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10.11 SEEK PROCEDURE 
Position a File to a Specified Element 


Definition: 


procedure SEEK( 
F . 


>: filetype; 
N : INTEGER); 


Where: 
F is a variable of a file type, 


N is an component number of 
the file. 


SEEK specifies the number of the next 
file component to be operated on by a 
GET or PUT operation. File components 
are origined at 1. The SEEK procedure 
is not supported for TEXT files. The 
file specified in the SEEK procedure 
must have been opened by RESET, REWRITE 
or UPDATE. For more infomation, consult 


the Pascal/VS Programmer's Guide, order 
number SH20-6162. 


10.12 EOF FUNCTION 


Test File for End Of File 


Definition: 
function EOFCF: filetype) :BOOLEAN; 
function EOF:BOOLEAN; 


Where: 


F is a variable of a file type. 


EOF is a BOOLEAN valued function which 
returns TRUE if the end-of-file cond- 
ition is true for the file. This condi- 
tion occurs in an input file when an 
attempt is made to read past the last 
record element of the file. If the file 
1s open for output, this function always 
returns TRUE. 


If the file variable F is omitted, then 
the function assumes the predefined file 
INPUT. 


Example: 


{ The following will read all of } 
{ the records from File SYSIN } 
{ and write then out to SYSOUT } 


type FREC = 
record 
A,B : INTEGER 
end; 


var 
SYSIN, 
SYSOUT: file of FREC; 


begin 
RESETCSYSIN); 
REWRITECSYSOUT); 
While not EOFCSYSIN) do 
begin 
SYSOUTa == SYSINQ; 
PUTCSYSOUT); 
GETCSYSIN) 
end; 
end; 


10.13 READ AND READLN (TEXT FILES) 


Read Data from TEXT File 


Definition: 


procedure READ( 
f : TEXT; 
v >: see below); 


procedure READLN( 
f : TEXT; 
v =: see below); 


Where: 


f is an optional text file 
that is to be used for input. 

v 15 one or more variables, 
each must be one of the 
following types: 

- INTEGER Cor subrange) 
CHAR Cor subrange) 
REAL 
SHORTREAL 
STRING 
packed array of CHAR 


The READ procedure reads character data 
from the TEXT file f. READ converts 
character data to conform to the type of 
the operand. The file parameter is 
optional; the default file is INPUT. 


READLN positions the file at the begin- 
ning of the next line. You may use more 
than one variable on each call by sepa- 
rating each with a comma. The effect is 
the same as multiple calls to READ. 


READC f,v1l,v2) 
is equivalent to: 
begin 
READC f,v1); 
READ(C f,v2) 
end 
and 
READLNCf,v1,v2,v3) 
is equivalent to: 
begin 
READCf,v1); 
READC £,v2);3 
READC f,v3)35 
READLNC €); 
end 


Multiple Variables on READ or READLN 
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Reading INTEGER Data 


INTEGER data from a TEXT file is read by 
scanning off leading blanks, accepting 
an optional sign and converting all 
characters up to the first non-numeric 
character or end-of-line. 


Reading CHAR Data 


A variable of type CHAR is assigned the 
next character in the file. 


Reading STRING Data 


Characters are read into a STRING vari- 
able until the variable has reached its 
maximum length or until the end of the 
line is reached. 


Reading REAL CSHORTREAL) Data 


REAL CSHORTREAL) data is read by scan- 
ning off leading blanks, accepting an 
optional sign and converting all charac- 
ters up to the first non-numeric charac- 
ter not conforming to the syntax of a 
REAL number. 


Reading packed array of CHAR Data 


If the variable is declared as a 
‘packed array(ll..n] of CHAR', charac- 
ters are stored into each element of the 
array. This is equivalent to a loop 
ranging from the lower bound of the 
array to the upper bound, performing a 
read operation for each element. If the 
end-of-line condition should become 
true before the variable is filled, the 
rest of the variable is filled with 
blanks. 


Consult the Programmer's Guide for more 
details on the use of READ and READLN. 


110 Pascal/VS Reference Manual 


var 
I,J: INTEGER; 
S: STRING(100); 
CH: CHAR; 
CC: packed array([1..101] of CHAR; 
F: TEXT; 


READLNCF,1I,J,CH,CC,S); 


assume the data is: 


36 24 ABCDEFGHIHKLMNOPQRS TUVWXYZ 


the variables would be assigned: 


I 36 

J 24 

CH ’ v 

cc "ABCDEFGHIJ' 

S "KLMNOPQRSTUVWXYZ! 
LENGTH(S) 16 


The READ Procedure 


Reading Variables with a Length 


You may optionally qualify a variable of 
READ with a field length expression: 


READCFf,vin) 


where "v" is the variable being read and 
" 15 the field length expression. 


This expression denotes the number of 
characters in the input line to be proc- 
essed for that variable. If the number 
of characters indicated by the field 
length is exhausted during a read opera~- 


“tion, then the reading operation will 


stop so that a subsequent read will 
begin at the first character following 
the field. If the reading completes 
prior to processing all characters of 
the field then the rest of the field is 
skipped. 


var 
I,J: INTEGER; 
S$: STRING(100); 
CH: CHAR; 
cc: packed array[1..10] of CHAR; 
F: TEXT; 


READLNCF,1°4,J3:10,CH:J,CC,S);3 


assume the data is: 


36 24 ABCDEFGHIKLMNOPQRSTUVWXYZ 


the variables would be assigned: 


‘i 36 

J 4 

CH ue ty 

cc "NOPQRSTUVW' 
"XYZ" 


S 
LENGTHC(S) 3 


The READ Procedure with Lengths 


10.14 READ CNON-TEXT FILES } 


Read Data from Non-TEXT Files 


Definition: 


procedure READ( 
f : file of t; 


vi: t); 


Where: 
f is an arbitrary file variable. 
v 1S a variable whose type matches 
the file component type of f 


Each call to READ will read one file 
element from file 'f' and assign it to 
variable ‘'v'. If the file is not open, 
the READ procedure will open it prior to 
assigning to the argument. 


READ(Cf,v) is functionally equivalent to 
the following compound statement: 


begin v i= fa; GET(Cf) end 


For more details consult the Program- 
mer's Guide. 
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10.15 WRITE AND WRITELN (TEXT FILES) 


Write Data to FIle 


Definition: 


procedure WRITEC 
f : TEXT; 
e : see below); 


procedure WRITELN(C 
f : TEXT; 
e : see below); 


Where: 
f is an optional TEXT file 
variable. 
e is an expression of one of the 
following types: 
- INTEGER Cor subrange) 
- CHAR Cor subrange) 
- REAL 
- SHORTREAL 
~ BOOLEAN 
- STRING 
- packed array[l..n] of CHAR 
Pascal/VS accepts a special para- 
meter format which is only 
allowed in the WRITE routine 
for TEXT files. 
See the following description. 


The WRITE procedure writes character 
data to the TEXT file specified by f. 
The data is obtained by converting the 
expression e into an external form. The 
file parameter is optional; if not spec- 
ified, the default file OUTPUT is used. 


WRITELN positions the file to the begin- 
ning of the next line. WRITELN is only 
applicable to TEXT files. You may use 
more than one expression on each call by 
separating each with a comma. The 
effect is the same as multiple calls to 
WRITE. 
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WRITECf,e1,e2) 
is equivalent to: 


begin 
WRITECf,e1);3 
WRITECf,e2) 
end 


and 
WRITELNC f,e1,e2,e3) 
is equivalent to: 


begin 
WRITECf,e1); 
WRITECf,e2); 
WRITEC f,e3);3 
WRITELNCF¥)3 
end 


Multiple Expressions on WRITE 


Pascal/VS supports a specialized form 
for specifying actual parameters) on 
WRITE and WRITELN to TEXT files. This 
provides a means by which you can speci- 
fy the length of the resulting output. 

Each expression in the WRITE procedure 
ria may be represented in one of three 
orms: 


1. e 
2. e: lenl 
3. e lenl : len2 


The expression e may be of any of the 
types outlined above and represents the 
data to be placed on the file. The data 
is converted to a character represen- 
tation from the internal form. The 
expressions lenl and len2 must evaluate 
to an INTEGER value. 


The expression lenl supplies the length 
of the field into which the data is 
written. The data is placed in the 
field justified to the right edge of the 
field. If lenl specifies a negative 
value, the data is justified to the left 
within a field whose length is 
ABSClen1). 


The len2 expression (Cform 3) may be 
specified only if e 1s an expression of 
type REAL. 


If lenl is unspecified (form 1) then a 
default value is used according to the 
table below. 


+eet 


type of default value 
expression e of lent 
INTEGER 12 
REAL 20 € E notation ) 
SHORTREAL 20 
CHAR 1 
BOOLEAN 10 
STRING LENGTHCexpression) 


array of CHAR length of array 


Default Field Width on WRITE 


Writing INTEGER Data 


The expression lenl represents the mini- 
mum width of the field in which the 
integer is to be placed. The value is 
converted to character format and placed 


in a field of the specified length. If 
the field is shorter than the size 
required to represent the value, the 
length of the field will be extended. 
Examples: 

Call: Result: 
WRITEC1234:6) * 1234" 
WRITEC1234:-6) "1234 ~—CS 
-WRITEC1234:1) "1234" 
WRITE(1234) 4 1234" 
WRITEC1234:-3) "1234" 

Writing CHAR Data 

The value of lenl is used to indicate 
the width of the field in which the 
character is to be placed. If lenl is 
not specified, a field width of 1 is 


assumed. If lenl is greater than 1 then 
the character will be padded on the left 


with blanks; if lenl is negative, then 
the character will be padded on the 
right. 
Example: 
call: Result: 
WRITEC'at:6) 7 a’ 
WRITEC'at:-6) Ya : 


Writing REAL Data 


REAL expressions may be printed with any 
one of the three operand formats. If 


tee te teee 


+++ 
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lenil is not specified (form 1), the 
result will be in scientific notation in 
a 20 character field. 


If lenl is specified and len2 is not 
(form 2), the result will be in scien- 
tific notation but the number of charac- 
ters in the field will be the value of 
lenl. ; 


If both leni and len2 are specified 
(form 3), the data will be written in 
fixed point notation in a field with 
length lenl; len2 specifies the number 
of digits that will appear to the right 
of the decimal point. The REAL expres- 
sion is always rounded to the last digit 
to be printed. 


If lenl is not large enough to fully 
represent the number, it will be 
extended appropriately. 
Examples: 
Call: Result: 
WRITEC3.14159:10) 
* 3.142E+00" 
WRITEC3.14159) 
" 3.1415900000000E+00' 
WRITEC3.14159:10:4) 
3.1416" 
Writing BOOLEAN Data 
The expression lenl is used to indicate 


the width of the field in which the boo- 
lean is to be placed. If the width is 
less than 6, then either a 'Tt or 'F* 
will be printed. Otherwise, 'TRUE' or 
*FALSE’ will be sent to the file. The 
data is placed in the field and justi- 
aloe according to the previously stated 
rules. 


Examples: 

Call: Result: 
WRITECTRUE:?10) TRUE! 
WRITECTRUE:~-10) * TRUE) ' 
WRITECFALSE:2) a 


Writing STRING Data 


The second expression is used to indi- 
cate the width of the field in which the 


string is to be placed. The data is 
placed in the field and justified 
according to the previously stated 
rules. 
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Examples: 
Call: Result: 
WRITEC abcd’ :6) " abcd! 
WRITEC'abcd':-6) ‘abcd ' 


WRITEC’abcd':2) Tab!’ 


WRITEC'abed' ) Tabcd' 


Writing Packed Array of CHAR Data 


The second expression is used to indi- 
cate the width of the field in which the 
array is to be placed. The data is 
placed in the field and justified 


according to the previously stated 
rules. 
Examples: 
var 
A : packed 
arrayl 1..4] of CHAR; 
A i= Yabcd'; 

Call: Result: 
WRITECA:6) ' abcd’ 
WRITECA:-6) abcd '! 
WRITECA:2) ‘ab’ 
WRITECA) Yabed' 
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10.16 WRITE (CNON-TEXT FILES) 
Write Data to Non-TEXT Files 


Definition: 


procedure WRITE( 
f : file of t; 
e ? t); 


Where: 
f is an arbitrary file variable. 
e is an expression whose type 
matches the file component 
type of f 


Each call to WRITE will write the value 
of expression e to file 'f'. 


WRITECf,e) is functionally equivalent 
to the following compound statement: 
begin fa >= e@; PUT(Cf) end 


For more details consult the Program- 
mer's Guide. 


10.17 EOLN FUNCTION 


Test a File for End of Line 


Definition: 


function EOLN(C f: TEXT ):BOOLEAN; 
function EOLN:BOOLEAN; 
Where: 


f is a TEXT file set to 
input. 


The EOLN function returns a BOOLEAN 
result of TRUE if TEXT file f is posi- 
tioned to an end-of-line character; 
otherwise, it returns FALSE. 


If EQLNCf) is true, then fa has the val- 
ue of a blank. That is, when EOLN is 
TRUE the file is positioned to a blank. 
This character is not in the file but 
Will appear as if it were. In many 
applications the extra blank will not 
affect the result; in those instances 
where the physical layout of the data is 
significant you must be sensitive to the 
EOLN condition. 


If the file variable F is omitted, then 
eee assumes the predefined file 
I ; 


10.18 PAGE PROCEDURE 


Force Skip to Next Page 


Definition: 
procedure PAGEC var f: TEXT ); 
Where: 


f is a TEXT file set to 
output. 


This procedure causes a skip to the top 
of the next page when the text-file is 
printed. The file parameter is optional 
and defaults to the standard file vari- 
able OUTPUT. 
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+e ett 


ee 


10.19 COLS FUNCTION 


Determine Current Column 


Definition: 


function COLS( 
var f: TEXT ) 


INTEGER; 


Where: 


f is a TEXT file set to 
output. 
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Het teeter teeee + 


This function returns the current column 
number Cposition of the next character 
to be written) on the output file desig- 
nated by the file variable. You may 
force the output to a specific column 
with the following code: 


if TAB > COLSCF) then 
WRITECF,* ":TAB-COLSCF)); 


The file name is never defaulted on the 
COLS: procedure. 


tee + 


+ee+ 


+H EEE EE HEHEHE H 


+etee eres 


The runtime library consists of those 


routines that are predefined in 
Pascal/VS. In addition to the routines 
described in this chapter, Pascal/VS 


provides routines with which to do input 
and output. Consult the I/0 chapter for 
a description of those routines. The 
predefined procedures and functions 
are: 

° ABS Function 

* ARCTAN Function 

e CHR Function 

° CLOCK Function 

° COMPRESS Function 

° COS Function 

° DATETIME Procedure 

e DELETE Function 

° DISPOSE Procedure 

° EXP Function 

° FLOAT Function 

e INDEX Function 

° HALT Procedure 

° HBOUND Function 

¢ HIGHEST Function 

° LBOUND Function 

° LENGTH Function 

° LN Function 

° LOWEST Function 

° LTRIM Function 

° MARK Procedure 


e MAX Function 


+++ 


Ht thee eee ++ 


++ 


tet + 


++++ 
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11.0 EXECUTION LIBRARY FACILITIES 


MAXLENGTH Function 
MIN Function 

NEW Procedure 

ODD Function 

ORD Function 

PACK Procedure 
PARMS Function 
PRED Function 
RANDOM Function 
READSTR Procedure 
RELEASE Procedure 
RETCODE Procedure 
ROUND Function 
Scalar Conversion 
SIN Function 
SIZEOF Function 
SQR Function 

SQRT Function 

STR Function 
SUBSTR Function 
SUCC Function 
TRUNC Function 
TRIM Function 
TOKEN Function 
TRACE Procedure 
UNPACK Procedure 
WRITESTR Procedure 
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+++ ++ 


Hehe eee ee ese 


11.1 MEMORY MANAGEMENT ROUTINES 


These routines provide means by which you can control the allocation of dynamic var- 


iables. 


li.1.1 MARK Procedure 


Mark Heap 


Definition: 


procedure MARK( 
var P > pointer );3 
Where: 


P 1s a pointer to any type 


The MARK procedure allocates a new area 
of memory from where dynamic variables 


are to be allocated. Such an area is 
called a heap.. The predefined proce- 
dure NEW allocates a dynamic variable 


from the most recently created heap. 
The predefined procedure DISPOSE 
de-allocates a dynamic variable from the 
heap. 


RELEASE is the complementary procedure 
which destroys a heap. Heaps are cre- 
ated and destroyed ina stack-like fash- 
ion. 


MARK does not allocate dynamic 
variables. The pointer variable passed 
as parameter P is set to the address of 
the associated heap control block; thus, 
the returned pointer must not be used as 
the base of a dynamic variable. 


4 


when the heap is freed. 
unpredictable results. 
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+eheeee eee te 


11.1.2 RELEASE Procedure 


Release Heap 


Definition: 


procedure RELEASEC 


var P pointer ); 
Where: 


P is a pointer to any type. 


RELEASE frees one or more heaps that 
were previously allocated by calls to 
MARK. (See the description of MARK for 
a definition of "heap".) The parameter 
of RELEASE must contain the address 
returned by a previous call to MARK; it 
is through this parameter that the heap 
is identified. 


RELEASE frees all heaps that were allo- 
cated since the corresponding MARK was 
executed. Thus, heaps are created and 
destroyed ina stack-like manner. 


When a heap is freed, all of the dynamic 
variables which were allocated from the 
heap are also freed. As a result, 
RELEASE is a means for disposing of many 
dynamic variables at one time. 


RELEASE sets its parameter variable CP) 
to nil. 


Pointers which reference dynamic variables of a heap are no longer defined 
Subsequent uses of such pointer values may cause 


PEER EE EEE EEE EERE EEE HEHE HH HEHE 


MARKP = @INTEGER; 


NAME: STRINGC30); 
NEXT: LINKP 


> MARKP; 


LINKP; 


MARK(P); 


NEW 
NEW 
NEW 
t F 
REL 


end; 


(Q1); 
(Q2); 
(93); 


rees Q1, Q2 and Q3 } 
EASE(P); 


Example of MARK and RELEASE 
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11.1.3 NEW Procedure 
Allocate Dynamic Variable 


Definition: 


form 1: 

procedure NEWC 
var P > pointer ); 

form 2: 

procedure NEWC 
var P1 : pointer; 

Chip t2.2 6x scalar); 


form 3: 
procedure NEW( 
var SP STRINGPTR; 
LEN > INTEGER; 


Where: 


P i8 a pointer to any type 
except a dynamic array. 

Pl is a pointer to a record 
type with variants 

SP is a STRINGPTR 

t1,t2... are scalar constants 
representing tag fields 

LEN is an integer valued expression 


The NEW procedure allocates a dynamic 
variable from the most recent heap and 
sets the pointer to point to the vari- 
able. 


form 1 


The first form of procedure NEW allo- 
cates the amount of storage that is nec- 
essary to represent a value of the type 
to which the pointer refers. If the 
type of the dynamic variable is a record 
with a variant part, the space allocated 
is the amount required for the record 
when the largest variant is active. 


type 
LINKP = aLINK; 
LINK = record 
NAME: STRINGC30); 
> LINKP 


HEAD : LINKP; 
begin 
NEWCP) ; 
With Pa do 
begin 
NAME : 
NEXT : 
end; 
HEAD := P; 


vee 
> 


HEAD; 


end; 


Example of using Simple Form 
of Procedure NEW 


form 2 


The second form is used to allocate a 
variant record when it is known which 
variant Cand sub-variants) will be 
active, in which case the amount of 
storage allocated will be no larger than 
necessary to contain the variant speci- 
fied. The scalar constants are tag 
field values. The first one indicates a 
particular variant in the record which 
will be active; subsequent tags indicate 
active sub-variants, sub-sub-variants, 
and so on. 


Note: This procedure does not set tag 
fields. The tag list only serves to 


indicate the amount of storage required; 
it is the programmer's responsibility to 
set the tag fields after the record is 
allocated. 
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type 
AGE = 0..100; 
RECP = aREC; 


REC = 
record 
NAME: STRINGC30); 
case HOW_OLD: AGE of 
0..18: 
CFATHER: RECP); 
19..100: 
(case MARRIED: BOOLEAN of 
TRUE: (SPOUSE: RECP); 
FALSE: (©) 
end; 
var 
P RECP ; 
begin 


NEWCP,18) 3 
with Pa do begin 

NAME := 'J. B. SMITH, JR’ 

HOW OLD := 18; 

NEWCFATHER,54, TRUE); 

With FATHERA do begin 
NAME == 'J. B. SMITH!'; 
HOW_OLD := 54; 

MARRIED := TRUE; 
NEWCSPOUSE,50,TRUE); 


end {with fathera}; 
end {with pa}; 


end; 


Using NEW for Allocating 
Records with Variants 


form 3 


The third form is used to allocate a 
string whose maximum length is known 
only during program execution. The 
amount of storage to be available for 
the string is defined by the required 
second parameter. See "The Type 
STRINGPTR"™ on page 58. 
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11.1.4 DISPOSE Procedure 
De-allocate Dynamic Variable 
Definition: 


procedure DISPOSE(C 
var P > pointer); 


Where: 


P is any pointer type. 


DISPOSE returns storage for a dynamic 
variable. You may de-allocate a dynamic 
variable from any heap. This procedure 
only returns the storage referred to by 
the pointer and does not return any 
storage which the dynamic variable ref- 
erences. That iS> if the dynamic 
variable is part of a linked list, you 
must explicitly DISPOSE of every element 
of the list. DISPOSE sets the pointer 
to nil. If you have other pointers 
which reference the same DISPOSEd dyna- 
mic variable, then it is your 
responsibility not to use these pointers 
because the dynamic variable which they 
represented is no longer allocated. 


11.2 DATA MOVEMENT ROUTINES 


These routines provide you with convenient ways to handle large amounts of data 


movement efficiently. 


11.2.1 PACK Procedure 
Copy Unpacked Array to Packed Array 


Definition: 


procedure PACK(¢ 
const SOURCE array-type; 
INDEX =: index_of_source; 
var TARGET pack_array_type) 


Where: 


SOURCE is an array. 

INDEX is an expression which is 
compatible with the index 
of SOURCE. 

TARGET is a variable of type packed 
array. 


This procedure fills the target array 
with elements from the source array 
starting with the index I where the tar- 
get array is packed. The types of the 
elements of the two arrays must be iden- 
tical. This procedure operates as: 


Given: 
A : arrayl(m..n] of T; 
Z : packed arraylu..v] of T; 


Call: 
-PACKCA, I, 2); 


Operation: 
22 6%: 


for j := LBOUND(Z) to HBOUND(Z) do 


ZOEjJ := ACKI; 
k := SUCCCk) 


Where: 
j and k are temporary variables. 


It is an error if the number of elements 
in Z is greater than the number of ele- 
ments in A starting with the Ith element 
to the end of the array. 


11.2.2 UNPACK Procedure 
Copy Packed Array to Unpacked Array 


Definition: 


procedure UNPACK( 

var SOURCE : pack_array_type; 
array-type; 
index_of_target); 


const TARGET 
INDEX 


Where: 


SOURCE is a packed array. 

TARGET is a variable of type array. 

INDEX is an expression which is 
compatible with the index 
of TARGET. 


This procedure fills the target array 
with elements from the source array 
Where the source array 15 packed. The 
type of the elements of the two arrays 
must be identical. This procedure oper- 
ates as: 


Given: 
A : arraylm..n] of T; 
Z : packed arraylu..vl of T; 


Call: 
UNPACKC(Z, A, I); 


pe aeto 
for 3 *= LBOUND(Z) to HBOUND(Z) do 
begin 
ACK] := 2031]; 
k := SUCC(k) 
end; 


Where: 
j and k are temporary variables. 


It is an error if the number of elements 
in Z is greater than the number of ele- 
ments in A starting with the Ith element 
to the end of the array. 
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11.3 DATA ACCESS ROUTINES 


These routines provide you a means to 
values. 


11.3.1 LOWEST Function 


Lowest Value of a Scalar 


Definition: 


function LOWESTC 
S scalar-type) 
scalar; 


Where: 
S is an identifier that has been 
declared as a scalar type, or 


a variable which is of a scalar 
type. 


This function returns the lowest value 


that is in the scalar type. The operand 
may be either a type identifier or a 
variable. If the operand is a type 


identifier, the value of the function is 
the lowest value that a variable of that 
type may be assigned. If the operand is 
a variable, the value of the function is 
the lowest value that the variable may 
be assigned. 


If the argument S refers to a 
record-type which has a variant part, 
and if no tag values are specified, then 
the storage required for the record with 
the largest variant will be returned. 


Example: 
type 
DAYS = (SUN, MON, TUES, WED, 
THU, FRI, SAT); 
SMALL = 0... 313 
var 
I : INTEGER; 
J : 0 255; 
LOWEST(DAYS) is SUN 
LOWESTCBOOLEAN) is FALSE 
LOWESTCSMALL) is 0 
LOWESTCI) is MININT 
LOWESTCJ) is 0 
The LOWEST Function 
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inquire about compile and run time bounds and 


11.3.2 HIGHEST Function 


Highest Value of a Scalar 


Definition: 


function HIGHEST( 
S ° 


scalar-type) 
> scalar; 


Where: 


S is an identifier that has been 
declared as a scalar type, or 
a variable which 1s of a scalar 
type. 


This function returns the highest value 
that is in the scalar type. The operand 
may be either a type identifier or a 
variable. If the operand is a type 
identifier, the value of the function is 
the highest value that a variable of 
that type may be assigned. If the oper- 
and is a variable, the value of the 
function is the highest value that the 
variable may be assigned. 


Example: 

type 
DAYS = (SUN, MON, TUES, WED, 

THU, FRI, SAT); 

SMALL =0 .. 31; 

var 
I > INTEGER; 
J > 0 .. 2553 
HIGHESTCDAYS) is SAT 
HIGHESTCBOOLEAN) is TRUE 
HIGHESTCSMALL) is 31 
HIGHESTCI) is MAXINT 
HIGHESTCJ) is 255 


The HIGHEST Function 
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13.3.3  LBOUND Function 


Lower Bound of Array 


Definition: 

function LBOUND(C 
V : 
I : 


arraytype; 
integer-const) 
scalar; 


function LBOUND(C 
T > type-identi fier; 


I > integer-const) 
: scalar; 


Where? 


V is a variable which is declared 
an array type. 
T is an type identifier declared 
an array. 
I is an positive integer valued 
constant expression and is 
optional. 


The LBOUND function returns the lower 
bound of an index to an array. The 
array may be specified in two ways: 


e an identifier which was declared as 
an array type via the type 
construct; 


° a variable which 
type. 


is of an array 


The value returned is of the same type 
as the type of the index. The second 
parameter defines the dimension of the 
array for which the lower bound is 
returned. It is assumed to be "1" if it 
is not specified. 


Example: 
type 
GRID = array[-10..10,-10..10] of 
REAL; 
var 
A > array[ 1..100 ] of ALFA; 
B >: arrayl 1..100 ] o 
of arrayl 0..9 ] of CHAR; 
LBOUNDC A ) is l 
LBOUNDC GRID, 1) is -10 
LBOUNDC B, 2 ) is 0 
LBOUNDC BC1] ) is 0 


The LBOUND Function 
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11.3.4 HBOUND Function 
Upper Bound of Array 


Definition: 


function HBOUND( 
VY - 


arraytype; 
I > integer-const) 
> scalar; 
function HBOUND( 
T : 


I : 


type-identifier; 
integer-const) 
scalar; 


Where: 


Vis a variable which is declared 
an array type. 
T is an type identifier declared 
an array. 
I is an positive integer-valued 
constant expression and is 
optional. 


The HBOUND function returns the upper 


bound of an index to an array. The 

array may be specified in two ways: 

° an identifier which was declared as 
an array type via the type 
construct; 

° a variable which is of an array 
type. 


The value returned is of the same type 
as the type of the index. The second 
parameter defines the dimension of the 
array for which the upper bound is 
returned. It is assumed to be "1" if it 
is not specified. 


Example: 
type 
GRID = array[-10..10,-10..10] of 
REAL; 
var 
>: GRID; 
B > arrayl 1..100 J] of 
of arrayl 0..9 J] of CHAR; 
HBOUNDC A ) is 10 
HBOUND( GRID ) 1s 10 
HBOUNDC( B, 2 ) is 9 
HBOUNDC BL1] ) is 9 


The HBOUND Function 
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11.3.5 SIZEOF Function 


Allocation Size of Data 


Definition: 


function SIZEOF(C 
S : 


anytype) 
INTEGER; 


function SIZEOFC 
$ > recordtype; 
t1,t2,... % tags); 
: INTEGER; 


Where: 
§ is an identifier that has been 


declared as a type, or any 
variable. 
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The SIZEOF function returns the amount 
of storage in bytes required to contain 
the variable or a variable of the type 
specified. 


If S is a record variable or a type 
identifier of a record, it may be fol- 
lowed by tag list which defines a par- 
ticular variant configuration of the 
record. In this case the function will 
return the amount of storage required 
Within the record to contain that vari- 
ant configuration. 


11.4 CONVERSTON ROUTINES 


TNL SN20-4446 (31 December 81) to SH20-6168-1 


This section documents predefined routines which preform conversions from one data 


type to another. 
acter string conversions. 


11.4.1 ORD Funetion 


Ordinal Value of Scalar 


Definition: 


function ORDC 
$ scalar ) 
INTEGER; 


Where: 


S is may be any scalar type or 
a pointer. 


This function returns an integer that 
corresponds to the ordinal value of the 
scalar. If the operand is of type CHAR 
then the value returned is the position 
in the EBCDIC character set for the 
character operand. If the operand is an 
enumerated scalar, then it returns the 
position in the enumeration (beginning 
at zero); for example, if COLOR = CRED, 
YELLOW, BLUE), then ORDCRED) is 0 and 
ORDCBLUE) jis 2. 


If the operand is a pointer, then the 
function returns the machine address of 
the dynamic variable referenced by the 
pointer. Although pointers can be con- 
verted to INTEGERs, there is no function 
provided to convert an INTEGER to a 
pointer. 


Refer to "WRITESTR"™ on page 141 and "READSTR" on page 141 for char- 


Integer to Character Conversion 


Definition: 


function CHR ( 
I : INTEGER ) 
> CHAR; 


Where: 


I is an INTEGER expression that is 
to be interpreted as a character. 


This function is the inverse function to 
ORD for characters. That iS, 
"ORDCCHRCI)DI=I' if I is in the subrange: 


ORDCLOWESTCCHAR))..ORDCHIGHESTCCHAR) > 
If the operand is not within this range 
and checking is enabled then a runtime 


error will result, otherwise the result 
is unpredictable. 
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11.4.3 Scalar Conversion 
Integer to Scalar Conversion 


Definition: 


function type-id 
I 


INTEGER) 
scalar-type; 


Where: 
I is an integer valued expression 


that is to be converted to an 
enumerated scalar. 


Every type identifier for an enumerated 
scalar or subrange scalar can be used as 
a function that converts an integer into 


a value of the enumerated scalar. These 
functions are the inverse of ORD. 
Example: 
type 
DAYS = (SUN, MON, TUES, WED, 
THU, FRI, SAT); 
DAYS(0) is SUN 
DAYS(3) is WED 
DAYS(6) is SAT 
DAYS(C7) is an error 
BOOLEAN(CO) is FALSE 
BOOLEAN(C1) is TRUE 


The Enumerated Scalar Function 
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11.4.4 FLOAT Function 


Integer to Real Conversion 


Definition: 


function FLOAT ( 
I 


INTEGER } 
REAL; 


Where: 


I is an INTEGER valued expression. 


This function converts an INTEGER to a 
REAL. Pascal/VS will convert an INTEGER 
to a REAL implicitly if one operand of 
an arithmetic or relation operator is 
REAL and the other is INTEGER. This 
function is useful in making the conver- 
Sion explicit in the program. 


11.4.5 TRUNC Function 11.4.6 ROUND Function 
Real to Integer Conversion Real to Integer Conversion 


Definition: 


function TRUNCC 
R 


Definition: 


function ROUND( 
REAL ) R 
INTEGER; 


REAL ) 
INTEGER; 


function TRUNCC function eoUNDe 
S 


SHORTREAL ) 
INTEGER; 


SHORTREAL ) 
INTEGER; 


Where: Where: 


R is a REAL valued expression. R is a REAL valued expression. 
S is a SHORTREAL valued expression. | S is a SHORTREAL valued expression. 


This function converts a REAL expression . This function converts a REAL expression 
to an INTEGER by truncating the operand to an INTEGER by rounding the operand. 
toward zero. This function equivalent to 

Examples: if R > 0.0 th 


en 
ROUND == TRUNCCR + 0.5) 


TRUNCC 1.0) is 1 else 

TRUNCC( 1.1) is 1 ROUND := TRUNCCR - 0.5) 

TRUNC( 1.9) is 1 

TRUNCC 0.0) is 0 Examples: 

TRUNC(-1.0) is -1 

TRUNC(-1.1) is -1 ROUND( 1.0) is 1 

TRUNCC(-1.9) is -l ROUND( 1.1) is 1 
ROUND( 1.9) is 2 
ROUNDC 0.0) is 0 
ROUND(-1.0) is -1 
ROUND(-1.1) is -l 
ROUND(-1.9) is -2 
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11.4.7. STR Function 


Convert to String 


Definition: 
function STRC¢ 
x 


CHAR or packed 
array[l..n] of 
CHAR ) 


STRING; 


Where: 


X is CHAR or packed arrayll..nl] of 


128 


CHAR expression. 
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This function converts either a CHAR or 
packed arrayl1..n] of CHAR to a STRING. 
Pascal/VS will implicitly convert a 
STRING to a CHAR or packed arrayll..nJ] 
Of CHAR on assignment, but all other 
conversions require you to explicitly 
state the conversion. You may assign a 
CHAR to an packed array(1..n] of CHAR by 
either: 


var 
AOC : ALPHA; 
CH : CHAR; 


AOC := STRCCH); 
or 
AOC := ' 's AOCE1] == CH; 


+ 


+++ + 
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11.5 MATHEMATICAL ROUTINES 


These routines defined various mathematical transformations. 


11.5.1] MIN Function 


MINimum Value of Scalars 
Definition: 


function MINC 
E 


> 


En 


scalar-type) 
scalar-type; 


Where: 


Ei is an expression of a scalar 
type. All parameters must be 
of the same type except where 
noted below. 


The MIN function returns the minimum 
value of two or more expressions. The 
parameters may be of any scalar type, 
including REAL. The parameters may bea 
mixture of INTEGER and REAL expressions, 
in which case, the result will be of 
type REAL. In all other cases, the 
eee must be conformable to each 
other. 


+ 
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11.5.2 MAX Function 


Maximum Value of Scalars 


function MAX(¢ 
EQ, 


En scalar-type) 
scalar-type; 


Where: 


Ei is an expression of a scalar 
type. All parameters must be 
of the same type except where 
noted below. 


The MAX function returns the maximum 
value of two or more parameters. The 
parameters may be of any scalar type, 
including REAL. They may be a mixture 


of INTEGER and REAL expressions, in 
which case, the result will be of type 
REAL. In all other cases, the parame- 


ters must be conformable to each other. 
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11.5.3 PRED Function 


Predecessor Value of a Scalar 


Definition: 


function PREDC 
S 


scalar) 
> scalar; 


Where: 


S is any scalar expression. 


This function returns the predecessor 
value of the parameter expression. The 
PRED of the first element of an enumer- 
ated scalar is an error. If the option 
%CHECK is ON, a runtime error will be 
raised if the PRED of the first element 
is attempted. If the checking is not 
performed, the results of the PRED of 
the first value 1s not defined. 
PREDCTRUE) is FALSE and PREDC'B') is 
"A". The PRED of an INTEGER is equiv- 
alent to subtracting one. PRED of a 
REAL argument is an error. 
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11.5.4 SUCC Function 


Successor Value of a Scalar 


Definition: 
function SUCCC( 
S 


: scalar) 
: scalar; 


Where: 


S is any scalar expression. 


This function returns the successor val- 
vue of the parameter expression. The 
SUCC of the last element of an enumer- 
ated scalar is an error. If the option 
“CHECK is ON, a runtime error will be 
raised if the SUCC of the last element 
is attempted. If the checking is not 
performed, the results of the SUCC of 
the last value is not defined. 
SUCCCFALSE) is TRUE and SUCCC'B') is 
‘Cc’. The SUCC of an INTEGER is equiv- 
alent to adding one. SUCC of a REAL 
argument is an error. 


11.5.5 ODD Function 


Test for Integer is Odd 


Definition: 


function ODDC 
I 


INTEGER) 
BOOLEAN; 


Where: 


I is an INTEGER to be tested 
for being add. 


This function returns TRUE if the param- 
eter I is odd, or FALSE if it is even. 


11.5.6 ABS Function 


Absolute Value 


Definition: 


function ABS( 
I 


> INTEGER ) 
> INTEGER; 


function ABS(¢ 

R >: REAL) 
: REAL; 
Where: 


I is an INTEGER expression. 
R is a REAL expression. 


The ABS function returns either a REAL 
value or an INTEGER value depending the 
type of its parameter. The result is 
the absolute value of the parameter. 
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11.5.7 SIN Function 11.5.8 COS Function 
Compute Sine Compute Cosine 


Definition: Definition: 


function SIN(¢ function co0s¢ 
x x 


Where: Where: 


X i165 an expression that evaluates X i185 an expression that evaluates 
to a REAL value. to a REAL value. 


The SIN function computes the sine of The COS function computes the cosine of 
parameter X, where X is expressed in the parameter X, where X is expressed in 
radians. radians. 
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11.5.9 ARCTAN Function 


Compute Arctangent 


Definition: 


function aperans 


Where: 


X is an expression that evaluates 
to a REAL value. 


The ARCTAN function computes the 
arctangent of parameter X. The result is 
expressed in radians. 


11.5.10 EXP Function 


Compute Exponential 


Definition: 


function EXP 
XxX 


Where: 


X is an expression that evaluates 
to a REAL value. 


The EXP function computes the value of 
the base of the natural logarithms, e, 
perce? to the power expressed by parame- 
ter X. 
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11.5.11 LN Function 11.5.12 S@QRT Function 


Compute Natural Log Compute Square Root 


Definition: 
function moni 


Definition: 


function LNC 
X 


Where: Where: 


X is an expression that evaluates 
to a REAL value. 


X is an expression that evaluates 
to a REAL value. 


The SQRT function computes the square 
The LN function computes the natural root of the parameter X. If the argu- 
logarithm of the parameter X. ment is less than zero, a run time error 
is produced. 
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11.5.13 _SQR Function 


Compute Square 


Definition: 


function SQR(¢ 
X =: REAL): REAL; 


function S@RC 
x : 


INTEGER): INTEGER; 


Where: 


X 15 an expression that evaluates 
to a REAL or INTEGER value. 


The SQ@R function computes the square of 


the argument. the argument is of 
type REAL, then ae §$REAL result is 
returned, otherwise the function 


returns an INTEGER. 


ee ee 
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11.5.14 RANDOM Function 


Compute a Random Number 


Definition: 


function RANDOM( 


S : INTEGER) REAL; 


Where: 


S is an expression that evaluates 
to an INTEGER value. 


The RANDOM function returns aie pseudo 
random number in the range >0.0 and 
<1.0. The parameter S is called the 


seed of the random number and is used to 
specify the beginning of the sequence. 
RANDOM always returns the same value 
when called with the same non zero seed. 
If you pass a seed value of 0, RANDOM 
will return the next number as generated 
from the previous seed. Thus, the gen- 
eral way to use this function is to pass 


it a non zero seed on the first invoca- 
tion and a zero value thereafter. 
Execution Library Facilities 135 


TNL SN20-4446 (31 December 81) to SH20-6168-1 


++ tet 


+H te ee ee eee est 


+++ 


11.6 STRING ROUTINES 


These routines provide convenient means of operating on string data. 


11.6.1 LENGTH Function 


Length of String 


Definition: 
function LENGTH(C 
S 


STRING) 
0..32767; 


Where: 


S is a STRING valued expression. 


This function returns the current length 
of the parameter. The value will be in 


the range 0..32767. 
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11.6.2 MAXLENGTH Function 


Maximum Length of a String 


Definition: 


function MAXLENGTH( 
S : 


STRING) 
0..32767; 


Where: 


S 18 a STRING valued expression. 


This function returns the maximum length 
of the parameter string. The value will 
+ be in the range 0..32767. 


++ eet 
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11.6.3 SUBSTR Function 
Obtain Substring 


Definition: 


function SUBSTR( 
const SOURCE 
START 
LEN 


STRING; 
INTEGER; 


INTEGER): STRING; 


function SUBSTR( 
const SOURCE 
START 


STRING; 


INTEGER): STRING; 


Where: 

SOURCE is a STRING expression from 
which a substring will be 
returned. 


START is an INTEGER expression that 
designates the first position 
in the SOURCE to be returned. 
is an INTEGER expression that 
defines the number of 
characters to be returned. 


LEN 


The SUBSTR function returns a substring 
from the specified source string 
CSOURCE). The second parameter CSTART) 
specifies the starting position within 
the source from where the substring is 
to be extracted. (The first character 
of the source string is at position 1). 
The third parameter CLEN) determines the 
length of the substring. If the length 
is omitted, the substring returned will 
be the remaining portion of the source 
string from position START. 


The value of START+LEN-1 must be less 
than or equal to the current LENGTH of 
the string, otherwise, an error diagnos- 
tic will be produced at run time. 


Examples: 


SUBSTRC*ABCDE! 
SUBSTRC*ABCDE' 


»e> yields ‘BCD’ 
1, 

SUBSTR(*ABCDE’ 4) 
1) 
52) 


) 

) vields '"ABC'* 
yields 'DE' 
vields "ABCDE’ 
5) is an error 


3 
3 


SUBSTRC'ABCDE' 
SUBSTRC*ABCDE' 


+ 
+ 
+ 
+ 
+ 
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11.6.4 DELETE Function 


Delete Substring 


Definition: 


function DELETE( 
const SOURCE 
START 
LEN 


STRING; 
INTEGER; 


INTEGER): STRING; 


function DELETEC 
const SOURCE 
START 


STRING; 


INTEGER): STRING; 


Where: 


SOURCE is a STRING expression from 
which a portion will be 
deleted. 

START is an INTEGER expression that 

designates the first position 

in the SOURCE to be deleted. 

is an INTEGER expression that 

defines the number of 

characters to be deleted. 


LEN 


The DELETE function returns the source 
string (SOURCE) with a portion of the 
string removed. The second parameter 
(START) specifies the starting position 
within the source where characters are 
to be deleted. (The first character of 
the source string is at position 1). 
The third parameter (LEN) specifies the 
number of characters to be deleted. If 
length parameter is omitted, all 
remaining characters are deleted; more 
precisely, the string is truncated 


‘beginning at position START. 


An attempt to delete a portion of the 
source beyond its length is an execution 
time error. 


Examples: 


DELETEC*ABCDE',2,3) yields ‘AE’ 
DELETEC*'ABCDE',3) yields '"AB' 
DELETEC*'ABCDE',3,1) yields "ABDE' 
DELETEC'ABCDE',1) yields '' 
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11.6.5 TRIM Function 


+ 
+ 
+ 
+ Remove Trailing Blanks 
+ 


Definition: 
function TRIMC 


const SOURCE : STRING) 
> STRING; 


Where: 


SOURCE is the STRING to be trimmed. 


Het eee eee HHH HH 


The TRIM function returns the parameter 
value with all trailing blanks removed. 


Example: 


TRIMC' AB *') yields " A B° 
TRIMC! ") yields '' 
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11.6.6 LTRIM Function 


Remove Leading Blanks 


Definition: 
function LTRIMC 
const SOURCE : STRING) 
: STRING; 

Where: 

SOURCE is the STRING to be trimmed. 
The LTRIM function returns the parameter 
value with all leading blanks removed. 
Example: 

LTRIMC' AB ') yields "A B !° 
LTRIMC* ") yields '' 
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11.6.7 COMPRESS Function 


Remove Multiple Blanks 


Definition: 


function COMPRESS( 
const SOURCE STRING) 
> STRING; 


Where: 


SOURCE is a the STRING expression 
to be compressed. 


The COMPRESS function replaces multiple 
blanks with a single blank. 


Example: 


COMPRESSC'A B CD ') yields 'A B CD ! 


| 
+ 
+ 
+ 
+ 
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YNDEX Fume tion 


Lookup String 


ee te 


Definition: 


function INDEX¢ 


const SOURCE STRING; 
const LOCKUP STRING) 
0..32767; 


Where: 


SOURCE is a STRING that contains 
the data to be compared against. 

LOOKUP is the data to be looked 

up in the SOURCE. 


The INDEX function compares the second 
parameter against the first and returns 
the starting index of the first instance 
where LOQKUP begins in SOURCE. If there 
are no occurrences, then a zero i585 
returned. 


Examples: 


var 
S ? STRING; 


S := "ABCABC!: 


INDEX(S,'BC') yields 2 
INDEX(S,'X") yields 0 


Execution Library Facilities 139 


HHH EE EEE HEHEHE EEE HEHEHE HEHEHE He FH HHH 


treet te t+ 


TNL SN20-4446 (31 December 81) to SH20-6168-1 


11.6.9 TOKEN Procedure 


Find Token 


Definition: 


procedure TOKEN( 


var POS 3 
const SOURCE 
var RESULT 


INTEGER; 
STRING; 
ALPHA); 


Where: 


POS is the starting index in SOURCE 
of where to lock for a token, it 
1s set to the index of where to 
resume the search on the next 
use of TOKEN. 

SOURCE is a STRING that contains 
the data from which a token 
15 to be extracted. 

RESULT is the variable which will 
be returned with token found. 


The TOKEN procedure scans the SOURCE 
string looking for a token and returns 
it as an ALPHA. The starting position 
of the scan i185 passed as. the first 
parameter. This parameter is changed to 
reflect the position which the scan is 
to be resumed on subsequent calls. 
Leading blanks; multiple blanks) and 
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trailing blanks are ignored. If there 
is no token in the string, POS is set to 
LENGTHCSOURCE)+1 and RESULT is set to 
all blanks. 


A token is defined to be any of: 


° Pascal/VS identifier - 1 to 16 
alphanumeric characters, '$"’ or an 
underscore. The first letter must 
be alphabetic ora '$'. 


° Pascal/VS 
page 18. 


unsigned integer - see 


° The following special symbols: 


+ - ¥% / -> a ¢ 

= <> < <= >= > ! 

( ) [ J J " A 

| & && || = a= # 

{ } (KX > 7K 
Example: 


I := 23 
TOKEN(CT,', Tokent', RESULT) 


I is set to 8 
RESULT is set to 'Token 
TOKEN would return the same 
I were set to 3, that is, 
leading blanks are ignored. 


+ 
+ 
+ 
+ 
+ 
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11.6.10 READSTR 
Read Data from a STRING 


Definition: 


procedure READSTR( 
const s STRING; 
v > see below); 


Where: 


s is a STRING expression that 
is to be used for input. 

v is a list of one or more 
variables, each must be one 
of the following types: 

- INTEGER Cor subrange) 

~ CHAR Cor subrange) 

- REAL 

- SHORTREAL 
- STRING 


packed array of CHAR 


READSTR procedure reads character 

from a source string into one or 
more variables. The actions of READSTR 
are identical to that of READ except 
that the source data is extracted froma 
string expression instead of a text 
file. See "READ and READLN CTEXT 
Files)" on page 109. 


The 
data 


As in the READ procedure, variables may 
be qualified with a field length expres- 
sion. See the example below. 


var 
I,J: INTEGER; 
5S =? STRINGC100); 
$1 : STRINGC100); 
CH CHAR; 
cc packed array[1..10] of CHAR; 
§ := "36 245ABCDEFGHIJK'; 


READSTR(S,1I,J:3,CH,CC:5,5$1)3 


the variables would be assigned: 


I 36 

J 24 

CH Yer 

cc "ABCDE ; 
a2 "FGHIJK'; 


LENGTH(S1) 6 
The READSTR Procedure 


+ 
+ 
+ 
+ 
+ 


PEER EEE EEE ERE EE HEHE EEE H— TH + 


HERE HEHEHE HEHE HHH 


+++ 


TNL SN20-4446 (31 December 81) to SH20-6168-1 


11.6.11 WRITESTR 


Write Data to a STRING 


Definition: 


procedure WRITESTR( 
var s STRING; 
e : see below); 


Where: 


s is a STRING variable 
e is an expression of one of the 
following types: 
~ INTEGER Cor subrange) 
- CHAR Cor subrange) 
REAL 
SHORTREAL 
BOOLEAN 
STRING 
packed array[1..n] of CHAR 


Pascal/VS accepts a special para- 
meter format which allows you. 
to specify a length of the result. 


The WRITESTR procedure converts expres- 
sions into character data and stores the 
data into a string variable. The seman- 
tics of WRITESTR are identical to WRITE, 
except that the target of the data is to 
a STRING rather than to a text file. 
See "WRITE and WRITELN CTEXT Files)"™ on 
page 112. 
As in the case of WRITE, the expressions 
being converted may be qualified with a 
field length expression. 
var 

I,J: INTEGER; 

S = STRINGC100); 

R =: REAL; 

CH CHAR; 

I := 10; J := -123; 

R := 3.14159; 

CH == '!; 

WRITESTR(S,1:3,J:5, *"ABC",CH, 

R:5:2); 


the variable S$ would be assigned: 
" 10 -123ABC% 3.14" 
The WRITESTR Procedure 
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11.7. GENERAL ROUTINES 


These routines provide several useful features of the Pascal/VS runtime environment. 


11.7.) TSE Procedure 


Routine Trace 


Definition: 


procedure TRACE(C 
var F 3 


TEXT); 


Where: 


F is the file that will receive 
the trace listing 


This procedure displays the current list 
of procedures and functions that are 
pending execution (i.e. save chain). 
Each line of the listing contains the 
name of the routine, the statement num- 
ber where the call took place, the 
return address in hexadecimal and the 
name of the module that contained the 
calling procedure. 

The file F is the TEXT file to which the 
information is to be written. 
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11.7.2 HALT Procedure 


Halt Program Execution 


Definition: 


procedure HALT; 


This routine halts execution of an Pas~ 
cal/VS program. That is, this can be 
considered to be a return from the main 
program. 


thee + 


re ee ee ee 
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11.8 SYSTEM INTERFACE ROUTINES 


These routines provide interfaces to system facilities: 


ent on the implementation of Pascal/VS. 


11.8.1 DATETIME Procedure 


Get Date and Time 


Definition: 


procedure DATETIME(C 
var DATE, 
TIME : ALFA); 


where: 


DATE is the returned date. 
TIME is the returned time. 


This procedure returns the current date 
and time of day as two ALFA arrays. The 
format of the result is placed in the 
ieee and second parameters respective- 
y: 


mm/dd/yy 
HH: MM:SS 
where: 
mm is the month expressed as a two 


digit value. 

is the day of the month. 

is the last two digits of the 
year. 

is the hour of the day expressed 
in a 24 hour clock. 

is the minute of the hour. 

is the second of the minute. 


dd 
yy 


HH 


MM 
$$ 


PEE HEHE FEET 


+eeet 


in general they are depend- 


11.8.2 CLOCK Function 


Get Execution Time 


Definition: 


function CLOCK : 


INTEGER; 


The value returned is the number of 
microseconds the program has been run- 
ning. Note: In an MVS system: the time 
is "TASK" time; and in a CMS system: the 
time is "CPU virtual" time. 
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11.8.3  PARMS Function 


Get Execution Parameters 


Definition: 


function PARMS STRING; 


The PARMS function returns a string that 
was associated with initial invocation 
of the Pascal/VS main program. 
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11.8.4 RETCOD ‘ocedure 


Set Program Return Code 


Definition: 


procedure RETCODE( 


RETVALUE INTEGER); 


where: 


RETVALUE is the return code to be 
passed to the caller of the 


Pascal/VS program. The value 
is system dependent. 


The value of the operand will be 
returned to system when an exit is made 
from the main program. If this routine 
is called several times, only the last 
value specified will be passed back to 
the system. 


Hehe teeter ee 
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12.0 THE % FEATURE 


Syntax: 


include-statement: 


check-statement: 


===> % ---> CHECK —7-------------------7--- | eae Maree | eee aes > 
---> POINTER ----- > ---> OFF ---> 
---> SUBSCRIPT ~--> 
---> SUBRANGE ----> 
---> FUNCTION ----> 
---> CASE -------- > 
---> TRUNCATE ----> 


print-statement: 


Sea Messy PRINTS sae- 2 ON see | SERRE dace aac eeaee ----- > 
---> OFF ---> 


list-statement: 


Poeae Grae IGE Sense ON Pane Rta eens ag eee ee 
---> OFF ---> 


page-statement: 

See ee AOL. meee Se See Saar e era Sea SS ee > 
cpage-statement: 

eee Bo eee > CPAGE ===> unsrgned-integer. --- s+ -4=s=sS-e55SS—5-s-Ss7 > 
title-statement: 

—“--> % ---> TITLE ---> any-charactar-string ---- <9 33a rr cero - === > 
skip-statement: 

Sse 4. SSeF (OK IP H==>: Unst oned~integer: -“=S+S$-S44S++—-6=—+ aie slaa aad oe cat > 
margins-statement: 


---> % ---> MARGINS ---> unsigned-integer unsigned-integer -------- > 


The % feature of Pascal/VS is used to + which causes the compiler to ignore all 
enable or disable a number of compiler + text between the statement and the 
options and features. The compiler + end-of-line. 

treats a % command as a trigger symbol 
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12.1 THE %INCLUDE STATEMENT 


The INCLUD@ statement causes source from 
a library file to be inserted into the 
input stream immediately after the cur- 
rent line. More precisely, the compiler 
is directed to begin reading its input 
from a library file; when the end of the 
file is reached, the compiler will 
resume reading from the previous source. 

forms of the INCLUDE 


There are two 


statement: 
® “4INCLUDE library-name(Cmember-name) 
° %INCLUDE member-name 


The first form references a aL 4 file 
and a specific member in the file 


The second form references a specific 
member from a default library. 


program ABC; 
const 
%include CONSTS 
type 
4include TYPES 
var 
Zinclude VARS 
%include LIBICPROCS) 
begin 


end. 


Example of “INCLUDE statement 


12.2 THE %CHECK STATEMENT 


The CHECK statement gives you the abili- 
ty to enable or disable the runtime 
checking features of Pascal/VS. The 
checking may be enabled for part or all 
of the program. The compiler will check 
the following: 


° use of a pointer whose value is NIL 
CPOINTER). 


is out of 
array index 


° oe e of a subscript which 
ange for the 
(3 SUBSCRIPT). 


° lack of an assignment of a value to 
a function before exiting from the 
function CFUNCTION). 


5 Under VM/CMS, 
name 
catenated). 


OS, 
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and MVS/TSO operating environments, 
is actually the "DD name" of a partitioned data set (which may be con- 
If the library name is omitted, 


POINTER OFF! 


is not 
for the target 


° assignment of a value whick 
in the proper range 
variable CSUBRANGE). 


° use of the predefined functions PRED 


or SUCC where the result of thea 
function is not a value in the type, 
i.e. underflow or overflow of the 


value range (SUBRANGE). 


° the value of a CASE statement selec- 
tor which is not equal to any of the 
CASE labels (CASE). 

° the value of ae string will be 
checked to be sure it will fit into 


the target string on an assignemnt 
CTRUNCATE). 


If the check option is missing, then all 


of the above checks will be assumed 
applicable. For example, '%CHECK ON’ 
activates all of the checks. '"*XCHECK 


Will disable the check on 
pointer references. The default is: 


% CHECK ON 


The %CHECK statement, like the other 
statements in this section, is a direc- 
tion to the compiler. Its effect is 
based on where it appears in the text 
and is not subject to any structuring 
established by the program. 


12.3 THE “PRINT STATEMENT 


The PRINT statement 
and 


is used to turn on 
off the printing of source in the 


listing. The default is: 
% PRINT ON 
12.4 THE %LIST STATENENT 


The LIST statement is used to enable or 
disable the pseudo-assembler listing of 
the Pascal/VS compiler. This option 
only has affect if the LIST compiler 
options is enabled. 


It is often required 
pseudo-assembler listing 
srall section of a module, 
it suppressed elsewhere. 
done as follows: 


to view the 
for only a 
and to have 
This can be 


1. Insert a line at the beginning of 
the module that consists of 


“LIST OFF 


the specified library 
the default is SYSLIB. 


a ae oe eS ee ee Se a ee ee 


2. At the beginning of each section of 
code for which an assembler listing 
is required, insert 

“%LIST ON 

3. At the end of each code section 

insert 
%LIST OFF 


4. Compile the module with the LIST 


option. 


12.5 THE *%PAGE STATEMENT 


The PAGE statement is used to force a 
skip to the next page on the output 
listing of the source program. 


12.6 


THE %CPAGE STATEMENT 


The CPAGE statement is used to force a 
page eject if there are less than a spe- 
cified number of lines left on the cur- 
rent page of the output listing. This 
is useful to make sure there is suffi- 
cient room for a unit of code, thereby 
not having it split across two pages. 
Example: 


—% CPAGE 30 


12.7. THE *TITLE STATEMENT 


The TITLE statement is used to set the 
title in the listing. It also causes a 


+e tee teetete 
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page skip. The title is printed as spe- 
cified on the statement, there is no 
change from lower case to upper case. 
The default is no title. 


1°.8 THE *SKIP STATEMENT 


The SKIP statement is used to force one 
or more blank lines to be inserted into 
the source listing. 


12.9 THE %*MARGINS STATEMENT 


The MARGINS statement redefines the left 
and right margins of the compiler input. 
The compiler skips all characters that 
lie outside the margins. The statement 
has the form 


“MARGINS mn 


where "m"™ is the new left margin and "n" 


‘is the new right margin. 


If the MARGINS statement appears in a 
library member which is being "included" 
by the *INCLUDE statement, the new mar- 
gins will have affect for the duration 
of the member only. When the end of the 
member is reached and the previous 
source is resumed, the margin settings 
Will revert back to their previous con- 
dition. 
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APPENDIXES 


"The Space Type" on page 149 

"Standard Identifiers in Pascal/VS" on page 151 
"Syntax Diagrams” on page 153 

"Index to Syntax Diagrams" on page 165 


“Glossary” on page 167 
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A.1 THE SPACE DECLARATION 


Syntax: 


space-type: 


A.0 THE SPACE TYPE 


---> Space ---> [ --->{constant-expr}---> ] ---> of --->{type} 


The need arises to represent data within 
storage areas which do not have the same 
fixed offset within each instance of the 
area. Examples of this include entries 
within a directory, where each entry may 
be of variable length, and processing 
variable length records from a buffer. 
To solve this problem, Pascal/VS pro- 
vides the space structure. 


A variable declared with the space type 
has a component which is able to 'float' 
over a storage area in a byte oriented 
manner. Space variables are accessed by 
following the variable's name with an 
integer index expression enclosed in 
square brackets. The index represents 
the offset Cin bytes) within the space 
storage where the data to be accessed 
resides. The offset is specified with 
an origin of zero. 


The constant expression which follows 
the space qualifier in the type defi- 
nition represents the size of the stor- 
age area Cin bytes) associated with the 
type. 


The component type of the space may be 
of any type except a file type. 


An element of a space may not be passed 
as a var parameter to a routine. Howev- 
er, an element may be passed as a const 
or value parameter. 


A.2 SPACE REFERENCING 


is selected by 
index expression, enclosed 


A component of a space 
placing an 


HEE EHREE EEE EEE EEE EEE EEE EEE EE EE HEHEHE HEHEHE HH HH 


within square brackets, after the space 
variable (just as in array references). 
The indexing expression must be of type 
INTEGER Cor a subrange thereof). The 
value of the index is the offset within 
the space at which the component is to 
be accessed. The unit of the index is 
the byte. The index is always based 
upon a zero origin. The component will 
be of the space base type. 


If the "%CHECK SUBSCRIPT’ option is ena- 
bled, the index expression will be 
checked at execution time to make sure 
that the computed address does not lie 
outside the storage occupied by the 
space. An execution time error diagnos~ 
tic will occur if the value is invalid. 
(For a description of the CHECK feature 
see "The “CHECK Statement™ on page 146). 


var 
S$: space[100] of 
record 
A,B: INTEGER 
end; 
begin 


{base record begins 
at offset 10 within 
space } 

26; 


’ 


Space Referencing Examples 
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++ 


+ette ++ t+ete + 
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B.0 STANDARD IDENTIFIERS IN PASCAL/VS 


A standard identifier is the name of a the name if you wish; however, it is 
constant, type, variable or routine that better to use the name according to its 
is predefined in Pascal/VS. The name is predefined meaning. 

declared in every module prior to the 

start of your program. You may redefine The identifiers that are predefined are: 


identifier 


ALPHALEN 
ARCTAN 
BOOLEAN 
CHAR 

CHR 
CLOCK 
CLOSE 


COLS 
COMPRESS 
CoS 
DATETIME 


DELETE 
DISPOSE 


HBOUND 
HIGHEST 
INDEX 
INPUT 
INTEGER 
LBOUND 
LENGTH 


MAXINT 


Standard Identifiers 


function compute the absolute value of an INTEGER or REAL 
type array of 8 characters, indexed 1..ALFALEN 
constant HBOUND of type ALFA, value is 8 
type array of 16 characters, indexed 1..ALPHALEN 
constant HBOUND of type ALPHA, value is 16 
function returns the arctangent of the argument 
data type composed of the values FALSE and TRUE 
character data type 
convert an integer to a character value 
returns the number of micro seconds of execution 
close a file 
returns current column on output line 
replaces multiple blanks in a string with one blank 
returns the cosine of the argument 
returns the current date and time of day 
returns a string with a portion removed 
deallocate a dynamic variable 
test file for end of file condition 
test file for end of line condition 
returns the base of the natural log Ce) 

raised to the power of the argument 
constant of type BOOLEAN, FALSE < TRUE 
convert an integer to a floating point value 
advance file pointer to next element of input file 
halts the programs execution 
determine the upper bound of an array 
determine the maximum value of a scalar 
looks up one string in another 
default input file 
integer data type 
determine the lower bound of an array 
datermine the current length of a string 
returns the natural logarithm of the argument 
determine the minimum value of a scalar 
returns a string with leading blanks removed 
routine to create a new heap 
determine the maximum value of a list of scalars 
maximum value of type INTEGER 
determines the maximum length of a string 
determine the minimum value of a list of scalars 
minimum value of type INTEGER 
allocate a dynamic variable from most recent heap 


function 
function 
procedure 
function 
function 
function 
procedure 
function 
procedure 
function 
function 
function 


constant 
function 


function 
function 
variable 
type 
function 
function 
function 
function 
function 
procedure 
function 


function 
constant 
procedure 
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identifier 


STRINGPTR 


SUBSTR 
$uCcC 
TERMIN 
TERMOUT 
TEXT 
TOKEN 
TRACE 
TRIM 
TRUE 
TRUNC 
UNPACK 
UPDATE 
WRITE 
WRITELN 
WRITESTR 
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form 


function 
function 
variable 
procedure 
procedure 
function 
procedure 
procedure 
type 
function 
procedure 
function 
procedure 
procedure 
procedure 
type 
procedure 
procedure 
procedure 
procedure 
function 
procedure 
type 
function 
function 
function 
function 
function 
type 


type 


function 
function 
procedure 
procedure 
type 
procedure 
procedure 
function 
constant 
function 
procedure 
procedure 
procedure 
procedure 
procedure 


Standard Identifiers Continued 
description 


returns TRUE if integer argument is odd 

convert a scalar value to an integer 

default output file 

copies an array to a packed array 

skips to the top of the next page 

returns the system dependent invocation parameters 

open a file for input from a partitioned data set 

open a file for output from a partitioned data set 

type to permit passing arbitrary pointers a routine 

obtain the predecessor of a scalar 

advance file pointer to next element of output file 

returns a pseudo-random number 

routine to read data froma file 

routine to read the end of line character of TEXT file 

converts a string to values assigned to variables 

floating point represented in 370 long floating point 

routine to destroy one or more heaps 

open a file for input 

sets the system dependent return code 

open a file for output 

convert a floating point to an integer by rounding 

positions an opened file at a specific record 

floating point represented in 370 short floating point 

returns the sine of the argument 

determine the memory size of a variable or type 

returns the square root of the argument 

returns the square of the argument 

convert an array of characters to a string 

a type for an array of char whose length varies during 
execution up to a maximum length 

a type for dynamically allocated strings of an 
execution determined length 

returns a portion of a string 

obtain the successor of a scalar 

open a file for input from the terminal 

open a file for output from the terminal 

file of CHAR 

extracts tokens from a string 

writes the routine return stack 

returns a string with trailing blanks removed 

constant of type BOOLEAN, TRUE > FALSE 

convert a floating point to an integer by truncating 

coptes a packed array to an array 

opens a file for both input and output 

routine to write data to a file 

routine to write end of line to a TEXT file 

converts a series of expressions into a string 
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C.0 SYNTAX DIAGRAMS 


actual-parameters: 


> ¢ >{expr} > ) > 
| Ce ‘ foam | 
oso eee eee aS ea >d 
> 


Sa A ia a a A las tts : sceeene TT ) 
ne eee a ee ae ee nee > 


> array [ >{index-type} > J) of ——>{type} -———> 
y (eee ga et ee 


> 


assart-statement: 


=> ASSErt) “o> lexpr i sas SoS eae ar ees Pe eee See eee See > 


assignment-statement: 


> {variable}——~——~y7——> := ——> {expr} —————_—_—_— 
TAS a eeuneti Gal ==> 


base-scalar-type: 


——> fenumerated-scalar-type}-——> 
—> (id! scalar-type} > —______________________» 
——> {subrange-scalar-type} > 


case-~statement: 


——> case —>{expr}—> of —> 
Be teats teeta 
>frange} > : ——>{statement} > 
coro ie ose ae 
eer epreren Teena SET aS oS RTE STEN ° 4 


a ge 


Ce ee ee ee eel 
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check-statement: 


mao > % ---> CHECK -rqprr ttn cron ror rr rr roe 1 oa ON ----- oo ee > 
---> POINTER ---~-- > -~-> OFF -~--> 
---> SUBSCRIPT ---> 
---> SUBRANGE ----> 
~=—> FUNCTION ---=-> 
---> SE Ss SSe== > 
-~--> TRUNCATE----- > 
cpage-statement: 
m—-> % ---> CPAGE ---> unsigned-integer ~rr ttt ttre t tt tr rr > 
compound-statement: 
> begin >{statement}——7——> end > 
Samii 3 < 
constant: 
—_—— Ee eee ee ee 
> + nanos Saami unsigned-number }——> 
>-—> 


constant—-dcl: 


—> const ee ad = —>{constant-expr}——> ; » 
1 es ee 


continue-statement: 


Soro DEON CINUG. “HSH Sea Ree eoN See SSeS ne aes sae Sor See ner Sasa ae 


declaration: 


> f{label-del}————-—> 


>{constant-dcl} 
> {type-dcel }————"—> 


>{var-dcel}———_-> 


===> (static-del i=-<--== > 


reais =-o24== ‘| 
>f{routine-dcl} > > 


def-dcl: 
oe > def ----7---7---7--- >{jd}---7--- > ? -==> <--> 3 --- 
aaa Gee Bae) T Poe {type} 
(eae ee eee oe 
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directive: 

as >“ FORWARD a ee 
ear EXTERNAL SoS s= SS eSS eee Ss eSse Seer Seer se Sees > 
sere FORTRAN Sees ares < SSeS ee a eee SS aS ci > 


empty-statement: 


enumerated-scalar-type: 


cone ail >{id} > J? i scemmreneeseennemeeennennanemenn A 
at ORS eee ee 


> 


expr? 
constant-expr: 


——>{simple-expression} 
>{simple-expression}——> 


fy 
11] 
ig) 
ce 
io 
“S 


>{function-call} 


——> {variable} 


——>{(set-const ict) ae a ae 

——— > ( -———> {expr} —> ) "nnn ee se 

“-=>{structured-constant} ------- SR cm SS oo ea > 

FP NOt: => act er) ree 

——> {unsigned-constant}) ———————————————————— 
field: 


---> ( --->{constant-expr}---> ) ---> 


field-list: 
> 
Le ied= pants ; >{variant-part}—L—,;—> 5 — > 
saa SAC tei ah Ae ee ees Ol a =) 
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file-type: 
—> file of —>{type} 


fixed-part: 
>{field} > : ——>{typel} > 
| | Ce Zoe | 
Lae a a ae a ee ee ee > 
CoO OOO)SCO 3S OK 


for-statement: 


—> for —>{id}—> := —>f{expr} > to >f{expr}——> 
es downto ——> | 
ae 
> do ——>{statenent)} ————_—_—_—_—_—_—_——-">>-°> 


—_— > var So > : ——>{id: type} 
---> const --> baa <—l 
j Dd ee jd: 
a ee >{id: type} 


> {procedure-heading} 


>function-heading} 
formal-parameters: 


—;—> ( >{formal} >) > 
| O tigeeeee eee a 
> 


function-call: 


——>{id: function}— > factual-paraneters) ——-—————————————— 


function-heading: 
——> function —>{id}—>{formal-parameters}——> : —>{id: type}———> 


goto-statement: 
> OC a LL rare SY 
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—>f{letter} 


if-statement: 


—> if —>{expr}—> then iil ar a ORE: aa 
> else —>{statement}—> 


include-statement: 


---> % ---> INCLUDE ---> id ---7---------- S ataietainatatataeianetetetas Gabanaianatetataieieianatatanete > 


index-type: 


——> {enumerated-scalar-type}——> 
——>{id:scalar-type}——————"> {+—___—_———.-- ~~ -_____—_ 
——> {subrange-scalar-type} > 


label: 


——-> 
SG aoe eT) 


label-dcl: 


——> label >{label} > 
ze eee 


leave-statement: 


SS? LORVG Soe St Sa eas eee ene Se Se Sasa SaaS Sera SS SSeS ae Seer rae Se 


list-statement: 


eee Reet LIST preps e ON eae | aaah eee deke won nnn e === === ---- > 


> OFF ---> 


margins-statement: 


—---> % ---> MARGINS ---> unsigned-integer unsigned-integer --9-- cert - nH no 


module: 


a7 (program Modale) ee 
--->{saegment-module}---> 
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+++ 


. page-statement: 


<--> % ---> PAGE wenn nnn nn nnn nn en nn en en ne nnn nn nr ene eee eee weno > 


pointer-type: 
—> 3 —>{lid: type) ——_—_———_—_ OOOO OOOO OO eee 


print-statement: 
---> % ---> PRINT maa aici ON ----- 1 Se ee ee ee ee > 


=meo ORF => 
procedure-call: 


ee ew Rt Ear ee ee Rey oe 
> ¢ >fexpr 2 Ss 
2 ae Saas ae 


procedure-heading: 


—— procedure ——> fi di—> {formal-pa Siete SS SS re 


program-module: 


——> program —>{id} eee | > {id} > } > 
: SS | 
Le Seas tS SSeS eee eee a= 
<—  —- hh 


stdacleratieni———>- 


> {compound-statement}——> SS eens 


range: 


—-> {constant-expr]} 
---> ., --->{constant-exprj}---> 


real-number: 
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record-structure: 


~-~->{iditype}---> ¢ i (i a a Dh, Se Sa eee > 
< 
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record-type: 


OP ee ee a es record —>{field-list}——> end 
> packed ——> 


statement: 


——> repeat Te? istatement}——7——> until ——> {expr} 
K——————— 3 < 


repeat— 


repetition: 


=-=>{¢o 


return- 


---> re 


nstant—expr } -o errr rr rte teen tee nner ener eecen 


statement: 


6 ak a aa a ka a ah lr a a 


-del: 


routine 
ae 


xg 


segment 


>{directive}—> ; 


Stddelarattoal <5" 


>{compound-statement}—> 


-~module: 


---> SEGMENT --->{lid}---> ; aad 


eer | 


banca | 
“A 
1 
! 


set-con 


>{constant-del}----> 


Vv 
Fal 
ce 

< 

Ee) 

10 

{ 
Q 

a 
— 
fae 

i 

{ 

| 

I 

{ 

{ 

{ 

{ 
Vv 


Vv 
Pome) 
< 
a 
% 

{ 
om 
0 
— 
Saye 

I 

{ 

I 

{ 

| 

i 

1 

i] 

I 
Vv 

ee | 


> {def-del}--------- > 
>{static-del}------ > 
>{value-del}------- > 
>f{routine-del}----- > 


structor: 


—> [ >feaxpr} 
> .. ——>f{expr} 
| ae >< 


>{procedure-heading} ——————_——-——————— 
ii anes 
SX 


> 


> 


> J 


> 
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set-type: 


ee ee ee set of —>{base-scalar-type}———_—________—_>> 
—- > packed —> 


simple-expression: 


skip-statement: 


SSae A Sse SRL Sree; UNS HQNEds1 nteger. Hse ne ees Ses sNn Kee Se ees eee > 


space-type: 


=a=> Space ===> [ —==>(constant-expri <-> ] 4<<>- of (“<-> ttypet—--s<="<=--=- > 


statement: 


——>f{label}J-—> : ——> 
ee iis arate ee 


sore tassert“statement) —=or=s4ee=SSseoon reese ees Stes ee > 
===> {asst gnment-statenésat ) —&<— 
—> {case-statement} ———_———— 
—-> {compound-statement } ———____ > 
a= => (COntINUe“ Statement) - 393s SSeS SoS SSS eee > 
——>fempty-statenent } —————_—__———_———— 
—> {for-statenent) ———————————————————— 
-——> {Goto statenent) ee 
——> 1} t-Statenen SSS 
<=> tleave-statement) —s2 23s terse HS esses sees eee seers e See > 
2 (procedire-411 
—> {repeat-statenent } ——_——_—__—__-——————— 
===> {(return~statement) <-s 935 =s9sS55 S44 S545 S- S93 55+ 5 == —= > 
——- tnt Le=ststen 6) 


——>{with-statenent } ————_——_-_—__—_—_—_———— > > 


static-dcl: 


---> static ieee erie EE ie —--> = --->{type}---> 5 ore See eee een ewnen= > 
{ 
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++ 


+++ 


stru 


ae i 


STRING Se ( --->{constant-expr}---> ) Ree ory oa ra > 
ee ee ee > 

ctured-constant: 

777? {record-structure}—~—7 SSeS Sy Serr esas ee SS SSS he sas SSeS Se > 

--~>f{array-structure}---> 


subrange-scalar-type: 


>{constant}——> .. ——>{constant-expr} > 
L---> range --->{constant-expr}---> .. --->{constant-expr}--~>4 
term: 
-_—— >{factor} > 
titlLe-statement: 
Beer ie ease TLLLE SSeS: Any“ChnaraCter  Steing. orcs sess Sore ESS orem e ee > 
type: 
>{id: type} ——_ 
>{enumerated-scalar-type) ————————— ee 
> {subrange-scalar-type)} —————— 
>{array-type} ——— OO 
>{record-type} ———_—__—_——_————————— 
>{set-type)} ————————— 
>{file-type} —————————_—————____—_-——> 
L—-> {po inter-type} ——_—_____—_—_—_ OO > 
Syntax Diagrams 
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++++ 


++ 
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type-del: 


——> type Se eines = ——>{type}——> ; > 
< 


unsigned-constant: 


>{unsigned-number} > 
——> {str ing}———_> 
——> {id: constant }————-> 


> nil —————————> 


unsigned-integer: 


oes ---7--- >{binary digit}---7--- > 'B <---> 
ie {binary digit} T B | 


unsigned-number: 


al ERE 18 tc lh I aaa maa 
——> {real-number}————> 


value-assigqnment: 


--->{variable}---> <= ~--T-77> {constant~expressi on}—-~~7 SSS Soe TSS see SSS > > 
~-->{structured-constant}--—> 


value-dcl: 
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variable: 


a> Li di ———-> 
< 
> >{expr} > J 
eS gy See aa 
> . —>{id: field} 
> a 


variant-part: 


eee nae ne ae ee ce te Se ee ee ee ee ee ey > 
—-> case eye Sela yl ? : —l——> tid: typep —1_>» of ——> 
> | 
< 


>f{range} > : ¢ >{field-list} > ) > 
é ee a eS | | 
3; <——— 


> 


: enna 


while-statement: 


——> while —>{expr}—> do —> {statement} ———__—______—_—_———_——"> 


with-statement: 


—-> With >{variable} > do —>{statement} —————_—_—_—_—-——"> 
ee eee 
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actual-parameters........ Gate eo 
array-structure..... cee eee ee 20 
ARVO“ CV POs 4 5 ole eee eee 42 
assert-statement...........6. 84 
assignment-statement........ 85 
base-scalar-type..........-. 48 
case-~statement.......... éeace 36 
check-~statement..... ide eae: AO 
compound-statement.......... 88 
CONSTANT shee bes wees each weae abe 
constant-del....... pears wee 24 
CONSTANT OM OP oss vs eee ees 71 
continue-statement.......... 89 
cpage-statement.......cceee . 145 
declaration... .. ccc ce ee ewes 21 
Get de Leet One wee haw Sen's Ae 28 
GPPOCEPV Gi 6 ce ON we Hew ES Se 61 
ampty-statement........2 2.06. 90 
enumerated-scalar-type...... 34 
OX Pc. < wae Meek A we Sok. 8 as cee ZL 
TFA@CO Rs hook a bees eG ie eee es 71 
FURL 2 ea etek weee sion Saibaba 44 
TV eClAG= ESE asia ke eee heeds Ba 44 
Ti Lee PG ee 6 «605. ea% ee ew Fe ee 50 
fixed Parts <x oC oven Sou ee ees 44 
FOR -StateGMent ccc ces eee wee 91 
forWial swe w eee Ses eee des Ge <. (64 
formal-paramaters........ 06. 61 
function-heading.........006 61 
TURGEON Call. veka be eae ees 79 
goto-statement.......... lest.» oo 
Ts ois ee Se Sard SSG ae wees ves LS 
TETSTEACEMENNS «he O54 84 we aS 94 
include-statement........26- 145 
THAEK=TV PGs 64538 d 4b wee eee SO 42 
FADE lie ck Se Oe oh See Rew 23 
babel-del ¢ since ec hee ew HGS SS 23 
leave-statement.........2 2s 95 
list-statement..... 2... cc cee 145 
margins-~statement..... bts ote 00% 145 
MOGUL. fees Siw eek Ses Sere wee 21 
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page-statement..... eee ee ee 145 
DON COP TVPGs os ewe eke ee 57 
Print-stateament....... 2.2 eee 145 
procedure-call..... eee ee 96 
procedure-heading........06. 61 
program-modul@...... cece eee ee 2l 
range..... a let ste Seer ee eee veer e 44 
real-number....... Sstidne a. egos -. 18 
record-structure......eeeee 20 
record-type.......-. Veer ane AG 
repeat-statemeant....... 2c eee 97 
repetition....... ei tarrinv cose se grecansaese 20 
return-statement.........06- 98 
POUtTNOTOC! via ei ba ws bee ees 61 
segment-module..........200- 2i 
Set-GConstructor..« ss veweee ws 81 
BAU CVE6 5-6 65a to tee BAS BOERS 43 
Simple-expression.......ceee 71 
skip-statement..... 2... eee eee 145 
Space-type.. cc eevee ccccees 149 
StATEMENT 6.5. 56a 5 wae aed ees 8&3 
BTATTC“CEl } c6 ciw 54 be kaw Ses 27 
SUMING ier else ees e's enews ae ehe 18 
string-type..... Si iscecauenete Athens 51 
structured-constant......... 20 
subrange-scalar-type........ 35 
EEPMN Sia din OES Eee ew ee es rae | 
title-statement......... cee 145 
VP@ iia eee ees eee. lee ote 31 
TY PGE-GCEl ..6.444.4.60456 54.54 588458 25 
unsigned-constant.......-- geiko 
unsigned-integer......c.eee. 18 
unsigned-number....... asad es 18 
value-assignement........... 29 
value-del....... igi a cone ire a meatal 29 
Vat md bic co i web ow el Se ee aes 26 
variable...... gh cigh eee ene te Saeace es 67 
variant—-part..... 2c eee wee ee 44 
with-statement..... ioe eaypeisS 100 
while-statement........ eae: 99 


Appendix D. Index to Syntax Diagrams 


165 


Actual parameter specifies what is to be 
passed to a routine. 


Array type is the structured type that 
consists of a fixed number of elements, 
each element of the same type. 


Assignment compatible is the term used 
to indicate whether a value may be 
assigned to a variable. 


Automatic variable is a variable which 
is allocated on entry to a routine and 
is deallocated on the subsequent return. 
An automatic variable is declared with 
the var declaration. 


Base scalar type is the name of the type 
on which another type 1s based. 


Bit is one binary digit. 


Byte is the unit of addresability on the 
Syvstem/370, its length is eight bits. 


Compatible types is the term which is 
used to indicate that operations between 
values of those types are permited. 


Component is the name of a value ina 
structured type. 


Constant is a value which is either a 
literal or an identifier which has been 
associated with a value in a const dec- 
laration. 


Constant expression iS an expression 
which can be completely evaluated by the 
compiler at compile time. 


Dynamic variable is a variable which is 
allocated under programmer control. 
Explicit allocates and deallocates are 
required; the predefined procedures NEW 
and DISPOSE are provided for this pur- 
pose. 


Element is the component of an array. 


Entry routine is a procedure or function 
Which may be invoked from outside the 
module in which it is defined. The rou- 
tine is called entry in the module in 
which is defined. An entry routine may 
not be imbedded in another routine; it 
must be defined on the outermost level 
of a module. 


Enumerated scalar type is a scalar that 
1s defined by enumerating the elements 
of the type. Each element is repres- 
ented by an identifier. 


External routine is a procedure or func- 
tion which may be invoked from outside 
the module in which the routine is 
defined. 


Field is the component of a record. 


E.9 GLOSSARY 


File type is a data type which is the 
mechanism to do input and output in 
Pascal/VS. 


Fixed part is that part of a record 
which exists in all instances of a par- 
ticular record type. 


Formal parameter is a parameter as 
declared on the routine heading. A 
formal parameter is used to specify what 
is permitted to be passed to a routine. 


Function 15 a routine, invoked by coding 
its name in an expression, which passes 
a result back to the invoker through the 
routine name. 


Identifier is the name of a declared 


item. 


Index is the selection mechanism applied 
to an array to identify an element of 
the array. 


Internal routine is a routine which can 
be used only from within the lexical 
scope in which it was declared. 


Lexical scope identifies the portion of 
a module in which a name jis known. An 
identifier declared in a routine is 
known within that routine and within all 
nested routines. If a nested routine 
declares an item with the same name, the 
outer item 1s not available in the 
nested routine. 
Module is the compilable unit in 
Pascal/VS. 


Offset is the selection mechanism of a 
space. An element is selected by plac- 
ing an integer value in parenthesis. 
The origin of a space is based on zero. 


Packed record type is a record structure 
in which fields are allocated in the 
minimum number of bytes. Implementation 
defined alignment of data types will not 
be preserved in order to pack the 
record. Packed records may not be 
passed by read/write reference. 


Pass by read only reference is the 
parameter passing mechanism by which the 
address of a variable or temporary is 
passed to the called routine. The 
called routine is not permitted to modi- 
fy the formal parameter. If the actual 
parameter 1s an expression, a temporary 
will be created and its address will be 
passed to the called routine. A tempo- 
rary is also created for fields of 
packed records. 


Pass by read/write reference is the 
parameter passing mechanism by which the 
address of a variable 1s passed to the 
called routine. If the called routine 
modifies the formal parameter, the cor- 
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responding actual parameter is changed. 
Only variables may be passed via this 
means. Fields of packed records will 
not be permitted to be passed in this 
way. 


Pass by value is the parameter passing 
mechanism by which a copy of the value 
of the actual parameter is passed to the 
called routine. If the called routine 
modifies the formal parameter, the cor- 
responding actual parameter is not 
affected. 


Pointer type is used to define variables 
that contain the address of dynamic var- 
iables. 


Procedure is a routine, invoked by cod- 
ing its name as a statement, which does 
not pass a result back to the invoker. 


Program module is the name of the com- 
pilable unit which represents the first 
unit executed. 


Record type is the structured type that 
contains a series of fields. Each field 
may be of a type different from the 
other fields of the record. A field is 
selected by the name of the field. 


Reserved word is an identifier whose use 
i5 restricted by the Pascal/VS compiler. 


Routine is a unit of a Pascal/VS program 
that may be called. The tro type of 
routines are: procedures and functions. 


Scalar type defines a variable that may 
contain a single value at execution. 


Segment module is a compilable unit in 
Pascal/VS that is used to contain entry 
routines. 


Set type is used to define a variable 


that represents all combinations of ele- 
ments of some scalar type. 
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Space type is used to define a variable 
whose components may be positioned at 
any byte in the total space of the vari- 
able. 


Statement is the executable unit in a 
Pascal/VS program. 


String represents an ordered list of 
characters whose size may vary at exe- 
cution time. There 15 a maximum size 
for every string. 


String constant is a string whose value 
is fixed by the compiler. 


Structured type is any one of several 
data type mechanisms that defines vari- 
ables that have multiple values. Each 
value is referred to generally as a com- 
ponent. 


Subrange scalar type is used to define a 
variable whose value is restricted to 


some subset of values of a base scalar 
type. 


Tag field is the field of a record which 
defines the structure of the variant 
part. 


Type defines the permissible values a 
variable may assume. 


Type definition is a specification of a 
data type. The specification may appear 
in a type declaration or in the declara- 
tion of a variable. 


Type _ identifier is the name given to a 
declared type. 


Variant part is that portion of a record 
which may vary from one instance of the 
record to another. The variant portion 
consists of a series of variants that 
may share the same physical storage. 


Special Characters 


< operator 
55 


<< operator on INTEGERS 
<> operator 
4, 
<= operator 
5 
+ operator 36, 40, 41, 48 
| operator 36, 39 
1! operator 52 
& operator 36, 39 
he operator 36, 39, 4%8 
* operator 36, 40, 41, 48 
operator 
operator 36, 40, 41, 48 
operator 36, 40, 41 
statements 145 
CHECK 146 
CPAGE 146 
INCLUDE 146 
LIST 146 
PAGE 146 
PRINT 146 
SKIP 146 
TITLE 146 
> operator 36, 37, 40, 41 
> operator 39, 52, 54, 55 
>> operator on INTEGERS 36, 78 


36, 78 


wN EG 


36, 37, 39, 40, 41, 48, 
36, 37, 39, 40, 41, 48, 


36, 37, 39, 40, 41, 52, 54, 


52; 
52, 


>= operator 36, 37, 39, 40, 41, 48, 52, 


54, 55 


= operator 36, S75 39, 40, 41, 48, 52, 


54, 55 


La] 


ABS function 36, 37, 40, 41, 131 
adding operators 74 

ALFA operators 54 

ALFA predefined type 54 

ALPHA operators 55 

ALPHA predefined type 55 

and operator on INTEGERS 78 
ARCTAN function 40, 41, 133 

array referencing 67 

array structured constants 20 
array subscripting 42 

array type 42 

assert statement 84 

assignment of compatible types 32 
assignment of function value 85 
assignment statement 


binary integer constants 18 
BOOLEAN expressions 77 
BOOLEAN operators 39 
boolean predefined type 39 


Le] 


case statement 86 

CHAR operators 37 

char predefined type 38 

CHECK compiler directive 146 
CHR function 36, 125 

CLOCK function 143 

CLOSE procedure 107 

COLS function 116 

comments) 17 

COMMON CFORTRAN) 28 
compatible types 32 

compile time initialization 29 
compound statement 88% 
COMPRESS function 52, 139 
conformant STRING Pal one cers 62 
const declaration 24 

constant declaration 24 
constant expression 71, 76 
constant expressions 18 
constants 18 

continue statement 89 
conversions 31 

conversions ona string 52, 53 
COS function 40, 41, 132 

CPAGE compiler directive 146 


[> | 


data alignement 59 

data storage requriements 59 
DATETIME procedure 143 
declaration 21, 23 
declaration order 22 

def variable declaration 28 
DELETE function 52, 137 
directives 61 

DISPOSE procedure 57, 120 
div operator 36 
div operator defined 37 
downto in the for statement 931 
dynamic variables 57, 68 


Le] 


EBCDIC 38 

empty statement 90 

enumerated scalar 34 

EOF function 109 

EOLN function 115 

example of 
array declarations 42 
array indexing 
assert statement 84 
assignment statement 85 
BOOLEAN expressions 77 
case statement 86 
compound statement 88 
COMPRESS function 139 
conformant strings 63 
const declaration 24 
const parameter 65 
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constant expressions 76 
constants 19 

continue statement 89 
def declaration 28 
DELETE function 137 
enumerated scalar 34 
EOF procedure 109 
expressions 73 

EXTERNAL function 63 
fields in a record 68 
file decalarations 50 
for statement 932 
function 79 

function returning a record 65 
goto statement 93 
HBOUND function 123 
HIGHEST function 122 

if statement 94 

INDEX function 139 
initializing an array 29 
label declaration 23 
LBOUND function 123 
leave statement 95 
logical expressions 78 
LOWEST function 122 
LTRIM function 138 

MARK and RELEASE 118 
nested comments)9 17 

NEW procedure 119, 120 
offsets in a record 47 


otherwise in a case statement 87 


procedure invocations 96 
procedures and functions 65 
program module 22 

READ procedure 109, 110, 111 
READSTR procedure 140 
record declarations 45 
recursive function 65 
ref declaration 28 
repeat statement 97 
ROUND function 127 
scalar function 126 
SEGMENT module 22 

set decalaration 48 
space type 149 

static declaration 27 
structured constants 20 
subrange scalar 35 
subscripting an array 68 
SUBSTR function 137 
TOKEN procedure 140 

TRIM function 138 

TRUNC function 127 

type compatibility 33 
type declaration 25 
UPDATE procedure 106 
usinga file 69 

using pointers 68 

using STRINGPTR 58 
using STRINGs 51 

using variables 67 

value declaration 29 


var declaration 26 


variant record 45, 46 
while statement 99 

with statement 100, 101 
WRITE procedure 112, 113 
WRITESTR procedure 141 


execution time string allocation 
EXP function 40, 41, 133 
expression 
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EXTERNAL directive 61 
EXTERNAL routines 63 
external variable 28 


LF | 


factor 71 

field 44, 46 

field list 44 

field referencing 68 

file referencing 68 

file type 50 

fixed part of a record 44, 45 
FLOAT function 36, 126 

for statement 

formal parameter 6 

formal parameter list 61, 62 
FORTRAN directive 

FORTRAN routines 63, 64 
FORWARD directive 61 

FORWARD routines 63 
function calls 79 

function declarartion 61, 62 
function heading 

function parameters 62 
function results 65 


functions in constant expressions 


Le] 


GET procedure 107 
goto statement 93 


Le | 


HALT procedure 142 

HBOUND function 52, 123 

heap 57 

hexadecimal integer constants 
hexadecimal real constants 18 
hexadecimal string constants 18 
HIGHEST function 


Lz] 


identifiers 13 

if statement 94 

implicit conversions 31 

in operator 48 

INCLUDE compiler directive 146 
INDEX function 52, 139 
initialization 29 


initializing the Pascal runtime envi- 


ronment 64 

INTEGER operators) 36 

INTEGER predefined type 36 
INTEGER storage mapping 36, 37 
interlanguage communication 64 
internal routines 63 


36, 37, 39, 122 


Le] 


label declaration 23 
label format 23 

LBOUND function 52, 123 

leave statement 95 

LENGTH function 51, 52, 136 
lexical level 3 

lexical scope 13 

LIST compiler directive 146 

LN function 40, 41, 134 

logical expressions on INTEGERS 78 
logical operations on integers 37 
LOWEST function 36, 37, 39, 122 
LTRIM function 52, 138 


Ln] 


MAIN directive 61 

MAIN routines 63, 64 

MARK procedure 57, 118 

MAX function 36, 37, 39, 40, 41, 129 
MAXINT 36 

MAXLENGTH function 51, 52, 136 

MIN function 36, 37, 39, 40, 41, 129 
MININT 36 

mod operator 36 

mod operator defined 37 

module 

module, structure 21 
multi-dimensional array 42 
multi-dimensional arrays 67 
multiplying operators 74 

mutually recursive routines 63 


Lx] 


NEW procedure es 119 
not operator 
not operator sn INTEGERS 78 


Lo | 


ODD function 36, 37, 131 
offset quailfication 46 
operations on 
ALFA 54 
ALPHA 55 
BOOLEAN 39 
CHAR 38 
INTEGER 36 
REAL 40 
set 48 
SHORTREAL 41 
STRING 52 
operator precedence 71 
operators 74 
or operator on INTEGERS 78 
ORD function 37, 39, 125 
order of evaluation of BOOLEAN expres- 
sions 
order of evaluation of expressions 71 


Le] 


PACK procedure 121 
packed array 42 
packed record 46 
packed set 48 
packed subrange 35 
PAGE compiler directive 146 
PAGE procedure 115 
parameter 62 
parameters 61 
parenthesized expression 71 
PARMS function 
pass by const parameters 62 
pass by read-only reference 
parameters 62 
pass by reference parameters 62 
pass by value parameters 62 
pass by var parameters 62 
PDSIN procedure 105 
PDSOUT procedure 106 
pointer referencing 68 
pointer type 
PRED function 36, 37, 130 
PRINT compiler directive 146 
procedure call statement 96 
procedure declaration 61 
procedure heading 61, 62 
procedure parameters 62 
program module 21 
PUT procedure 108 
RANDOM function 135 
READ procedure 109, 111 
Reading 
CHAR Data 110 
INTEGER Data 110 
packed array of CHAR Data 110 
REAL CSHORTREAL) Data 110 
STRING Data 110 
Variables with a Length 110 
READLN procedure 9 
READSTR procedure 52, 140 
real constants) 18 
REAL operators 40 
real predefined type 40 
record structured constants 20 
record type 44 
REENTRANT directive 61 
REENTRANT routines 63, 64 
ref variable declaration 28 
relational operators 74 
RELEASE procedure 57, 118 
repeat statement 97 
reserved words 15 
RESET procedure 103 
restrictions on a goto statement 93 
restrictions on file type 50 
restrictions on routines 63 
restrictions using the MAIN 
directive 
restrictions using the REENTRANT direc~ 
tive 
RETCODE procedure 144 
return statement 98 
revision codes iv 
REWRITE procedure 104 
ROUND function 40, 41, 127 
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routine declarartion 61, 62 
routine parameters 62 


[s | 


same type 32 

scalar conversion functions 80, 126 
scope 13, 44% 

SEEK procedure 108 

SEGMENT module 21 

seprate compilation 63 

set operators 48 

set type 48 

short circuiting of BOOLEAN 
expressions 7 

SHORTREAL operators 41 
shortreal predefined type 41 
simple expression 71 

SIN function 40, 41, 132 


SIZEOF function 36, 37, 39, 40, 41, 48, 


52, 54, 55, 124 

SKIP compiler directive 146 
space declaration 149 

space element referencing 149 
special symbols 16 

SQ@R function 36, 40, 41, 135 
SQRT function 40, 41, 134 
statements 83 

static variable declaration 27 
storage mapping for a set 48 
storage mapping of a record 46 
STR function 37, 54, 55, 128 
STRING 58 

string constants 18 

STRING operators 52 

STRING parameters 62 

string type 

strings 31 

structured constants 20 
subrange scalar 35 

SUBSTR function 52, 137 

SUCC function 36, 37, 130 


[+] 


tag field 45 

term 71 

TERMIN procedure 104 
TERMOUT procedure 105 

TEXT predefined type 56 
TITLE compiler directive 146 
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to in the for statement 931 
TOKEN procedure 140 

TRACE procedure 142 

TRIM function 52, 138 
TRUNC function 40, 41, 127 
type compatibility 31 
type conversions 31 

type declaration 25 

type identifier 25 

type matching 32 

types 31 

types of routines 63 


[v ] 


UNPACK procedure 121 
unsigned-integer constants 18 
UPDATE procedure 106 

user definfed types 31 


Ea 


value declaration 29 

var declaration 26 

variable declaration 26 
variable identifier 26 
variables 67 

variant part of a record 44, 45 


[u] 


while statement 99 
with statement 100 
WRITE procedure 112, 114 
WRITELN procedure 112 
WRITESTR procedure 52, 141 
Writing 
BOOLEAN Data 113 
CHAR Data 3 
INTEGER Data 113 
Packed Array of CHAR Data 114 
REAL Data 113 
STRING Data 113 
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tet + 


+++ 


arrays or records with structured 
fields. 
type 
COMPLEX = record 
RE,IM: REAL 
end; 
VECTOR = arrayli..7] of INTEGER; 
CARRAY = arrayv[0..3] of COMPLEX; 
TETRA = array[1..3,1..2,1..4] 
of INTEGER; 
const 
{ Structured Constants } 
THREEFOUR = COMPLEX(3.0,4.0); 
VECTOR_1 = VECTOR(7,0:5,1); 
VECTOR_2 = VECTOR(2,3,,4);3 
ZEROTETRA = 
TETRAC 
C €0°4):2 ), 
C €0°:4),¢0:4) ), 
C €0,0,0,0),€0,0,0,0) ) )3 


{the following two declarations 
are equivalent 


VECTOR_3 = CARRAY(C 
COMPLEX(1.0,0.0), 
COMPLEX(1.0,1.0):8, 
COMPLEX(0.0,1.0)); 

VECTOR_4 = CARRAY(¢ 

(1.0,0.0), 
(1.0,1.0):°8, 
€0.0,1.0)); 


Examples of Structured Constants 


TNL SN20-4446 (31 December 81) to SH20-6168-1 


type 
FORM = 


KONST = 
record 
SIZE: INTEGER; 
case F: FORM of 
FCHAR: (CC: CHAR); 
FINTEGER: (I: INTEGER); 
FREAL: CR: REAL); 
FSTRING: (¢ 
case BOOLEAN of 
TRUE: ¢ 


LEN: packed 0..32767; 
A + ALPHA); 
FALSE: (S$: STRINGC16)); 


CFCHAR, FINTEGER,FREAL, 
FSTRING); 


end 
const 
A 


KONSTC1,FCHAR, 'A'); 
PI KONST(8,FREAL, 3.14159); 
BLANK 


KONST(1,FSTRING. FALSE," '); 
STARS = 
KONSTC4,FSTRING, TRUE, 4G, ' XXX") 5 


Structured constants with 
variant record fields 
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